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1.0  Introduction 


This  document  is  primarily  a  listing  of  software  developed  at 
I3T  for  the  Aviation  Technology  Research  Laboratory,  under  contract 
number  N61339-89-0045  to  PM  TRADE.  Some  chapters  cover  general 
purpose  libraries,  some  cover  header  files  included  by  multiple 
modules,  but  most  chapters  cover  the  software  needed  to  build  one 
of  the  executable  programs  making  up  the  testbed. 

The  ASAT  software  delivered  to  1ST  consisted  of  two  source 
files,  asat.c  and  internet. asm.  These  underwent  minor 
modifications  to  allow  the  delay  project  to  intercept  the  ASAT 
packets  (see  section  1.1  below). 

Some  of  the  interface  software  (e.g.,  data  collection.  Section 
11)  spawns  a  window  process  (BE) .  Being  commerical  software,  1ST 
is  not  at  liberty  to  supply  detailed  descriptions  of  BE.  In  any 
case,  the  intent  of  its  use  is  apparent  from  its  usage. 

1.1  Intersimulator  Network  Design  Description 

Intersimulator  network  service  (ISNS)  is  designed  to  introduce 
delays  in  ASAT  simulator  communication.  Outside  of  an  experimental 
setting,  delays  may  come  from  various  sources  such  as  satellite 
latency  and  computational  bottlenecks.  As  simulations  become 
increasingly  complex  and  geographically  disperse  delays  become  a 
fact  of  life.  ISMS  allows  evaluation  of  the  impact  of  packet 
delays  on  simulations  and  simulation  users. 

The  ASAT  native  communication  is  through  Ethernet,  a  broadcast 
LAN.  ISNS  intercepts  ethernet  packets,  allowing  ASAT  communication 
to  be  controlled  for  experimentation.  ISNS  requires  a  personal 
computer  as  well  as  two  ASAT  simulators. 

ISNS  consists  of  two  major  components.  One  part  consists  of 
modifications  to  the  ASAT  software  so  only  packets  correctly 
addressed  are  accepted.  Further,  these  modifications  cause  an  ASAT 
to  ignore  its  own  packets.  To  support  this,  each  ASAT  is  given  a 
unicpje  identifier,  and  packets  are  stamped  with  the  sender's 
identification. 

The  second  component  of  ISNS  is  software  which  accepts 
packets,  as  if  it  were  a  LAN,  holds  the  packets  for  a  specified 
time,  alters  the  packet  target  addresses,  and  then  re-transmits  the 
packets.  Figure  1.1.1  shows  the  interconnection  of  the  ASATs  and 
the  PC  running  the  delay  software. 
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Figure  1.1.1  ASAT/PC  Network  Connections 


Two  ASAT  source  files  were  modified,  asat.c  and  internet . asm . 
The  PC  software  consists  of  6  programs:  initsys.exe,  intersim.exe, 
predelay.exe,  delay.exe,  posdelay.exe  and  saver.exe . 

The  modifications  to  the  network  packets  are  illustrated  in 
Figure  1.1.2. 
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Figure  1.1.2  Intersimulator  Network  Packet  Layout 
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Inltsys.exe  carries  out  ASAT  simulator  initialization. 
Intersim.exe  and  saver.exe  serve  as  the  PC  user  interface. 
Predelay.exe  and  posdelay.exe  support  delay.exe  by  carrying  out 
initial  and  final  calculations  required  by  delay.exe.  Delay.exe 
is,  in  a  real  sense,  the  core  of  the  PC  software.  It  enforces  the 
packet  delay.  Figure  1.1.3  shows  the  PC  software  calling 
sequences . 


Figure  1.1.3  PC  Program  Calling  Sequence 


The  program  delay.exe  is  constrained  to  occupy  no  more  than 
64K  bytes  and  hence  the  proliferation  of  helper  functions. 
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2.0  Software  Introduction 

The  following  statement  applies  to  each  software  element 
supplied  by  1ST. 


* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 


AVIATION  TRAINER 
VERSION  1 . 0 


TECHNOLOGY  TESTBED 
30  AUGUST  1991 


* 

* 

* 

* 

*  This  software  has  been  developed  under  the  Naval  Training 

*  Systems  Center  contract  N61339-89-C-0045 . 

* 

*  This  software  is  made  available  for  illustrative  purposes 

*  only.  It  is  experimental  prototype  software  which  is 

*  undergoing  continual  modification,  updates  and  improve- 

*  ments. 

it 

*  Neither  the  Institute  for  Simulation  and  Training  (1ST)  nor 

*  the  United  States  Government  assumes  responsibility  for  its 

*  correctness  or  for  any  liability  resulting  directly  or 

*  indirectly  from  its  use.  * 

*  * 

*  Because  this  is  prototype  software,  it  shall  not  be  proposed  * 

*  as  reusable  or  as  developmental  software  on  subsequent  * 

*  Government  procurements.  * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

it 

ie 


1ST  is  unable  to  provide  technical  support  to  users  of  this  * 
software;  however,  1ST  is  interested  in  receiving  comments,  * 
corrections  and  information  relating  to  the  use  of  any  parts  * 
of  the  software.  Comments  should  be  directed  to  the  1ST  * 
with  information  copy  to  PM  TRADE. 


AVIATION  TRAINER  TECHNOLOGY  LABORATORY 
Institute  for  Simulation  and  Training 
University  of  Central  Florida 
12424,  Research  Parkway,  Suite  300 
Orlando,  FL  32826 
Phone  (407)  658  -  5000 


* 

* 

* 

* 

* 

* 

* 

* 


*  Project  Manager  for  Training  Devices  * 

*  ATTN;  AMCPM-TND-ED  * 

*  12350  Research  Parkway  * 

*  Orlando,  FL  23026-3276  * 

*  Phone  (407)  380  -  8189  * 

*  * 
***************************************************************** 
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3.0  System  Header  Files 


The  header  files  covered  here  are  used  to  build  the  various 
programs  making  up  the  the  1ST  developed  ASAT  software.  The 
headers  are  collected  here  since  they  are  not,  generally,  a  part  of 
an  individual  programs. 


3.1  Inet.h 

The  INET  header  contains  various  definitions  used  by  the  1ST  ASAT 
software.  It  closely  parallels  Scom.h,  which  is  included  as  part 
of  data  collection  (Section  11)  .  Inet.h  and  3com.h  have  many 
common  elements  and  some  reorganization  of  these  headers  may  be 
worthwhile . 


*  inet.h:  include  file. 


^define 

ADAPTERID 

0x0001 

/*  Ether  Link  II  adapter  id 

*/ 

Trdef  ine 

ADAPTERWAIT 

0x0060 

/*  transmitting  wait 

*/ 

#def ine 

ASATl 

1 

/*  ID  for  simulator  #1 

*/ 

#def ine 

ASAT2 

2 

/*  ID  for  simulator  42 

*/ 

#def ine 

ESCKEY 

27 

/*  ESC  key  code 

*/ 

#define 

ASATTYPEBYTE 

10 

/*  Asat  packet  type  byte  offset 
^  / 

#def ine 

ASATSTATEBYTE 

51 

/ 

/*  Asat  status  byte  offset 

in 

pkt  type  8 

*/ 

#def ine 

MINLEN 

64 

/*  minimum  packet  length 

*/ 

#def ine 

MAXLEN 

566 

/*  maximum  packet  length 

*/ 

#def ine 

MILISEC  0. 

838*1191. 

5636  /*  time  counter  reading 

converting 

*/ 

#define 

ASATERRORl 

34.48 

/*  ave  inter-packet  time  of 

Asatl  (ms) 

*/ 

#def ine 

ASATEPvROR2 

71.43 

/*  ave  inter-packet  time  of 

Asat2  (ms) 

*/ 

#def ine 

DEADMARK 

0X41 

/*  simulator  spin  or  explode 

*/ 

#def ine 

NORMALENO 

0 

/*  normal  time  out 

*/ 

#def ine 

ASATl DEAD 

1 

/*  Asat  #1  is  dead 

*/ 

#def ine 

ASAT2DEAD 

2 

/*  Asat  #2  is  dead 

*/ 

#def ine 

USERSTOP 

9 

/*  User  stops  the  network 

service 

*/ 

#def ine 

TEAMMODE 

0 

/*  Team  mode  -  two  simulators*/ 

#def ine 

PKTTYPEO 

0 

/*  Asat  packet  type  0 

*/ 

#def ine 

PKTTYPEl 

1 

/*  Asat  packet  type  1 

*/ 

#def ine 

PKTTYPE8 

8 

/*  Asat  packet  type  8 

*/ 

#def ine 

PKTTYPE9 

9 

/*  Asat  packet  type  9 

*/ 

#def ine 

PKTTYPEIO 

10 

/*  packet  type  10  -  not  Asat 

pkt. 

*/ 

#def ine 

TRUE  1 

#def ine 

FALSE  0 

/*  DOS  driver  init  request  header  format  */ 
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typedef  struct  ini_hdrty 


{ 

char  len;  /* 

char  nonl; 

char  non2 ;  /* 

char  non3 [ 2 ] ; 
char  non4 [ 4 ] ; 
char  non5[4]; 

char  none;  /* 

char  cdend[4];  /* 

char  *argo;  /* 

short  args;  /* 

char  non? ; 

} 

ini  hdr; 


struct  WhoStruct 

{ 

unsigned  char  addr[6]; 
char  ver_itiajor; 
char  ver_ininor; 
char  sub_ver; 
char  type_ds; 
char  type_adapter ; 
char  init_status; 
char  reserved; 
char  nuin_tran_buf ; 
short  si2e_tran_buf ; 
long  ttl_tran_cnt ; 
long  ttl_tran_err_cnt ; 
long  ttl_tran_tiineout_cnt; 
long  ttl_recp_cnt ; 
long  ttl_recv_bdr_cnt ; 
long  ttl_recv_err_cnt ; 
long  ttl_retry_cnt ; 
char  xfr_niode; 
char  wait_Eode; 
char  hdr_spec_data ; 

}; 


header  length  */ 

initial  command  */ 


number  units  */ 
code  end  address  */ 
argument  offset  */ 
argument  segment  */ 


/*  Ethernet  who-am-I  data 

structure  */ 

/*  Ethernet  adapter  address  */ 

/*  major  version  */ 

/*  minor  version  */ 

/*  subversion  */ 

/*  type  version  */ 

/*  adapter  type  */ 

/*  adapter  status  */ 

/*  adapter  flags  */ 

/*  number  of  xmit  buffers  */ 

/*  xmit  buffer  size  */ 

/*  total  xmit  count  */ 

/*  total  xmit  error  count  */ 

/*  total  xmit  timeout  count  */ 

/*  total  rev  count  */ 

/*  total  broadcast  rev  count*/ 
/*  total  rev  error  count  */ 

/*  total  xmit  retry  count  */ 

/*  flag  of  transfer  mode  */ 

/*  flag  of  wait  mode  */ 

/*  extension  pointer  */ 


ctruct  PktStr  /*  data  structure  for  receiving  buffer 


char  inp[566]; 

} ; 


struct  HeadStr  /*  data  structure  for  packet  header  */ 

{ 

char  inh[36]; 

} ; 
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struct  HeadStr  far  *Hdptr;  /*  received  packet  header  pointer  */ 

struct  WhoStruct  far  *Who;  /*  Who  am  I  structure  pointer  */ 

struct  PktStr  far  *Pkt;  /*  received  packet  pointer  */ 

struct  PktStr  far  *Pkti;  /*  pointer  for  packet  received  from 

ASAT  #1  */ 

struct  PktStr  far  ■‘Pkt2;  /*  pointer  for  packet  received  from 

ASAT  #2  */ 

struct  ini_hdrty  *parmsdr;  /*  parameter  structure  pointer  */ 


/*  Timer  variables  */ 
struct  dostime_t  timein; 

unsigned  long  far  *timeptr;  /*  time  counter  reading  pointer  */ 
unsigned  long  far  *timeQl;  /*  time  stamp  pointer  for  current 

pkt  */ 

unsigned  long  far  *timeQ2 ;  /*  time  stamp  pointer  for  next  pkt 

*/ 

/*  transmitting  buffer  */ 

char  far  *Pkttrxptr;  /*  packet  transmitting  buffer  pointer  */ 

int  TotPktsInQ;  /*  a  returned  value  tells  the  size  of  the 

packet  receiving  queue  */ 

int  network_mode ;  /*  specifies  team  mode  or  solitaire  mode  */ 
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3.2  Delay. h 

This  header  is  used  in  building  both  intersim.exe  and  saver.exe. 


*  Module 

*  Programmer 

*  Purpose 

it 

* 

★ 


:  delay. h  * 

:  Sandhya  Chandarlapaty  * 

:  This  header  file  provides  programmer  defined  * 
constants  needed  for  the  graphic  user  interface  * 
for  the  Intersimulator  delay  study  conducted  in  * 
the  Aviation  Trainer  Research  Laboratory  on  the  * 


* 


ASAT ' s . 


* 


*  Compilation  :  This  header  file  must  be  included  and  linked  * 

*  with  the  source  file,  using  the  Microsoft  6.0  * 

*  compiler  and  linker.  * 

*********  A- *+************************************************** 


enum  valid  delays  {ZERO  =  0, SMALL  =  250, MEDIUM  =  500, LARGE  =  750}; 

/************* 

*  defines  * 

**************/ 

sdefine  BASE  10 
^define  BACKSPACE  8 
^define  CARRIAGE  13 
^define  MAXTRIAL  31 
#define  BLACK  0 
^define  BLUE  1 
#define  GREEN  2 
#define  CYAN  3 
?{define  RED  4 
#define  MAGENTA  5 
i^define  BROWN  6 
#define  WHITE  7 
# define  DARKGRAY  8 
# define  LIGHTBLUE  9 
# define  LIGHTGREEN  10 
#define  LIGHTCYAN  11 
#define  LIGHTRED  12 
#define  LIGHTMAGENTA  13 
#define  YELIX3W  14 
#define  BRIGHTWHITE  15 

#define  TRUE  1 
#define  FALSE  0 
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3.3  Kklib.h 


*  Module  :  kklib.h  * 

*  Programmer  :  Kevin  Kearns  * 

*  Purpose  :  This  header  file  provides  programmer  defined  * 

*  constants  needed  for  the  screen  I/O  and  keyboard  * 

*  I/O  functions  provided  by  the  library  CLIB.C  * 

*  Compilation  :  This  header  file  must  be  included  and  linked  * 

*  with  the  source  file,  using  the  Turbo  C++  2.0  * 

*  compiler  and  linker.  * 

*  * 


# include  "conio.h" 

/************* 
defines  * 

**************/ 


^define  NullKey  0 

^define  CtrlD  4 

frdefine  Bell  7 

^define  BackSpaceKey  8 
#define  TabKey  9 

#define  CarriageReturn  13 
#define  CtrlW  23 

#define  CtrlY  25 

#define  EscKey  27 

#define  SpaceKey  32 
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#def ine 

ShiftTabKey 

15+255 

#def ine 

FI 

59+255 

#def ine 

F2 

60+255 

#def ine 

F3 

61+255 

#def ine 

F4 

62+255 

#def ine 

F5 

63+255 

#def ine 

F6 

64+255 

#def ine 

F7 

65+255 

#def ine 

F8 

66+255 

Idefine 

F9 

67+255 

#def ine 

FIO 

68+255 

#define 

HomeKey 

71+255 

#def ine 

UpArrow 

72+255 

#def ine 

PgUp 

73+255 

#def ine 

LeftArrow 

75+255 

#def ine 

RightArrow 

77+255 

#def ine 

EndKey 

79+255 

#define 

DownArrow 

80+255 

?^def  ine 

PgDn 

81+255 

#def ine 

InsKey 

82+255 

#def ine 

Del Key 

83+255 

#def ine 

CtrlLeftArrow 

115+255 

#def ine 

CtrlRightArrow 

116+255 

#def ine 

Ctrl End 

117+255 

#def ine 

Ctrl PgDn 

118+255 

#define 

CtrlHome 

119+255 

#define 

Ctrl PgUp 

132+255 

#def ine 

TextKey 

32 

#define 

NumberKey 

48 

#define 

Alts 

31+255 

#def ine 

AltQ 

16+255 

#def ine 

AltX 

45+255 

#define  False  0 
tdefine  True  1 
#define  OK  1 
# define  ERROR  -1 

#define  Single_Single  1 
^define  Double_Double  2 
#define  Single_Double  3 

#define  vad(x,y)  ( ( (y-l) *160) + ( (x-1) *2) ) 

#define  Min(x,y)  (((x)  <  (y) )  ?  (x)  :  (y))  /*  returns  minimum  of 

x,y  */ 

#define  Max(x,y)  (((x)  >  (y) )  ?  (x)  ;  (y) )  /*  returns  maximum  of 

x,y  */ 

# define  MAXINPUTLEN  80 
#define  MAXKEYS  15 
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y****1t******it***1fifk1t 

type  definitions  * 

typedef  struct 

{ 

int  NUM; 

int  KEYStMAXKEYS] ; 

}  KeyList; 

typedef  unsigned  int  BYTE; 
typedef  unsigned  int  BOOLEAN; 

typedef  struct 

{ 

int  *buf ; 

struct  text_info  scr_info 
}  screen; 
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4.0  Clib.c 


This  source  code  does  not  directly  generate  an  executable 
program.  Rather,  it  yields  object  files  which  are  linked  with 
various  components  of  the  testbed  software.  This  library  is  of  a 
more  general  nature  than  the  project  at  hand,  and  so  some 
components  of  the  library  are  never  exercised  by  the  testbed 
software. 


Program  cover  sheet 

Program  name  : CLIB.C  Latest  Version:  1.0  Date:  05/30/91 

Languages:  C  Manufacturer:  Borland  Version  :  2 . 0 

Description: 

This  file  is  a  library  of  functions  for  screen  I/O  and 
keyboard  I/O.  The  library  can  be  linked  with  any  C  program  written 
in  Turbo  C  and  compiled  with  the  Turbo  C  or  Turbo  C++  compiler. 
The  C  header  files  Clib.h  and  Kklib.h  must  be  included  in  the 
source  program. 

This  file  consists  of  helper  routines  for  manipulation  of  the 
user  interface.  Fundamental  window  capability  is  also  supplied  by 
this  module. 

y******************************************* 


*  * 

*  Source  code  :  Kevin  Kearns  * 

*  Documentation:  Sandhya  Chandarlapaty  * 

*  * 

*  This  file  contains  some  functions  * 


*  necessary  for  screen  I/O  and  keyboard  * 

*  I/O.  It  is  compiled  with  the  Turbo  C++  * 

*  compiler.  * 

********************************************/ 

#include  <alloc.h> 

# include  <stdio.h> 

#include  <stdlib.h> 

#include  <dos.h> 

# include  <conio.h> 

#include  <string.h> 

# include  "kklib.h” 

# include  "clib.h" 


enum  {Mono,  Color)  MonitorType; 


int 

int 

unsigned  int 

BYTE 

BYTE 


InsertOn  =  0; 
LastKey ; 

VS  eg; 

HoldCursor ; 
CursorlsOn; 


/*  indicates  the  latest  key 
pressed  */ 


/*  indicates  if  cursor  is 
displayed  */ 
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BYTE 


OldTextAttr; 


/*  stores  previous  text 
attributes  */ 

BYTE  NewTextAttr  =  (BLUE  «  4)  j  WHITE; 

int  WinCount  =  -1;  /*  count  of  number  of 

active  windows  */ 

WindArray  WindArr [MAXWINDOWS] ; 

/*  refer  to  clib.h  for  type  descriptions  of  enum  {Mono,  Color}, 
BYTE,  WindArray,  GetField,  GETLIST  */ 


Aviation  Test  Plan  Report 


Page  13 


GetVideoMode ( ) 


/* 


PURPOSE  :  sets  the  value  of  VSeg  and  MonitorType 

ASSUMES  ;  nothing 

CALL  :  GetVideoMode ( ) ; 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 

SIDE  EFFECTS  ;  globals  Vseg  and  MonitorType  are  changed 
- */ 

void  GetVideoMode ( ) 

{ 

struct  REGPACK  reg; 

reg.r_ax  =  OxOFOO; 
intr(OxlO,  &reg) ; 

if  (reg.r_ax  ==  0x0007) 

{ 

MonitorType  =  Mono; 
vseg  =  OxbOOO; 

} 

else 

{ 

MonitorType  =  Color; 

VSeg  =  OxbSOO; 

} 

} 
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CursorOf f 


/* 


PURPOSE  :  sets  CursorlsOn  to  false 
ASSUMES  :  nothing 
CALL  :  CursorOf f(); 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 

SIDE  EFFECTS  :  global  CursorlsOn  is  changed 
- */ 


void  Cur sorO f f ( ) 

{ 

union  REGS  reg; 

reg.h.ch  =  0x20; 
reg. h. ah  =  1; 
int86(0xl0,  &reg,  &reg) ; 

CursorlsOn  =  False; 

) 
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CursorSmall 


/* 


PURPOSE  :  sets  CursorlsOn  to  true 

ASStJMES  :  nothing 

CALL  :  CursorSmall  0  ; 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  nothing 

SIDE  EFFECTS  :  global  CursorlsOn  is  changed 
- */ 

void  CursorSmall ( ) 

{ 

union  REGS  reg,  oreg; 

switch  (MonitorType) 

{ 

case  Mono  : 

{ 

reg.h.ch  =  OxOC; 
reg. h. cl  =  OxOD; 
break; 

} 

case  Color  ; 

{ 

reg . h . ch  =  6 ; 
reg. h. cl  =  7; 
break; 

) 

) 

reg. h. ah  =  1; 
reg.h.bh  =  0; 
int86(0xl0,  &reg,  Soreg) ; 

CursorlsOn  =  True; 

} 
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/* - 

CursorBig 

PURPOSE  :  sets  CursorlsOn  to  true 
ASSUMES  :  nothing 
CALL  ;  CursorBig ( ) ; 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 

SIDE  EFFECTS  :  global  CursorlsOn  is  changed 
- */ 

void  CursorBig () 

{ 

struct  REGPACK  reg; 

switch  (MonitorType) 

{ 

case  Mono  : 

{ 

reg.r_cx  =  OxOOOD; 
break; 

} 

case  Color  : 

{ 

reg.r_cx  =  0x0007; 
break; 

) 

) 

reg.r_ax  =  0x0100; 
reg . r_bx  =  0 ; 
intr(0xl0,  &reg) ; 

CursorlsOn  =  True; 

} 
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SaveCursorStatus ( ) 


/* 


PURPOSE  :  saves  th"'  value  of  CursorlsOn  in  HoldCursor 

ASSUMES  :  nothing 

CALL  :  SaveCursorStatus ( ) ; 

INPUT  PARAMETERS  ;  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 

SIDE  EFFECTS  :  global  HoldCursor  is  changed 
- */ 

void  SaveCursorStatus () 

{ 

HoldCursor  =  CursorlsOn; 

} 

/* - 

RestoreCursorStatus ( ) 

PURPOSE  :  if  CursorlsOn  is  true,  reset  it,  else  it  is  set  to 

false 

ASSUMES  :  nothing 

CALL  ;  ResetCursorStatus { ) ; 

INPUT  PARAMETERS  ;  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  CursorOff() 
RETURNS  :  nothing 

SIDE  EFFECTS  :  global  CursorlsOn  is  changed 

- - V 

void  RestoreCursorStatus ( ) 

{ 

if  (HoldCursor) 

CursorSmall ( ) ; 

else 

CursorOf f ( )  ; 

) 
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SaveScreen 


/* 


PURPOSE  ;  saves  cursor  status,  fill  up  the  tscreen  structure  with 
the  screen  information  i.e,  fill  up  the  scr_info 
structure  (which  is  of  type  struct  text_info)  and  save 
text  in  rectangle  enclosed  by  xl,yl,  x2,y2  ,  at 
location  pointed  to  by  buf. 

ASSUMES  :  nothing 

CALL  :  SaveScreen (xl,yl,x2,y2, tscreen) ; 

INPUT  PARAMETERS  :  int  xl,  int  yl,  int  x2 ,  int  y2 ,  screen  *tscreen 

xl  —  top  column  number  x2  —  bottom  column 
number 

yl  —  left  line  number  y2  -  right  line  number 
tscreen  —  ptr  to  struct  of  type  screen 
FUNCTION  CALLS  (other  than  standard  functions)  :  SaveCursorStatus ( ) 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  SaveScreen (int  xl,  int  yl,  int  x2,  int  y2,  screen  *tscreen) 

{ 

SaveCursorStatus 0 ;  /*  save  cursor  */ 

tscreen->buf  =  (int  *)  malloc( ( (y2-yl)  +  1)  *  ( (x2-xl)  +  1)  * 

2)  ; 

gettextinf o ( &tscreen->scr_inf o) ; 
gettext(xl,  yl,  x2,  y2,  tscreen->buf) ; 

} 
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I 


/* - 

RestScreen 

PURPOSE  :  copies  text  from  memory  on  to  the  screen  window,  sets 
background  and  foreground  colors,  sets  the  text  mode, 
defines  an  active  window  for  text,  and  places  the 
cursor  at  the  current  position. 

ASSUMES  :  nothing 

CALL  :  RestScreen (xl,yl,x2,y2,tscreen) ; 

INPUT  PARAMETERS  :  int  xl,  int  yl,  int  x2,  int  y2,  screen  *tscreen 

xl  —  top  column  number  x2  —  bottom  column 
number 

yl  —  left  line  number  y2  -  right  line  number 
tscreen  —  ptr  to  struct  of  type  screen 
FUNCTION  CALLS (  other  than  standard  functions  ) : 

RestoreCursorStatus ( ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  RestScreen { int  xl,  int  yl,  int  x2 ,  int  y2 ,  screen  * tscreen) 

{ 

puttext(xl,  yl,  x2 ,  y2 ,  tscreen->buf)  ;  /*  put  text  at  xl,yl  */ 

f ree ( tscreen->buf ) ;  /*  free  up  memory  */ 

textattr ( tscreen->scr_inf o . attribute) ; 
textmode ( tscreen->scr_inf o . currmode) ; 

/*  draw  window  */ 

window  ( tscreen->scr_inf o .  winlef t ,  tscreen->scr__inf o .  wintop , 
tscreen->scr_info. winright,  tscreen->scr_info. winbottom) ; 
gotoxy (tscreen->scr_info.curx,  tscreen->scr_info.cury) ; 

/*  restore  cursor  at 
current  x,y  */ 


RestoreCursorStatus ( ) ; 

) 
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Attr 


/* 


PURPOSE  :  changes  the  text  attribute,  saves  previous  text 
attribute 

ASSUMES  :  nothing 
CALL  :  Attr(bg,fg); 

INPUT  PARAMETERS  :  int  bg,  int  fg 

bg  —  background  color  code 
fg  —  foreground  color  code 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  nothing 

SIDE  EFFECTS  :  globals  OldTextAttr , NewTextAttr  are  changed 
- */ 

void  Attr (int  bg,  int  fg) 

{ 

struct  text_info  scrn_info; 

gettextinfo (&scrn_info) ; 

NewTextAttr  =  (bg  «  4)  i  fg; 
textattr (NewTextAttr) ; 

OldTextAttr  =  scrn_info. attribute; 

} 

/* - 

XYStr 

PURPOSE  :  writes  s  string  on  the  screen  at  position  X,Y 

ASSUMES  ;  nothing 

CALL  :  XYStr (X, Y,s) ; 

INPUT  PARAMETERS  :  int  X,  int  Y,  char  s[] 

X  —  column  number 
Y  —  line  number 
s  —  char  string 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  ;  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  XYStr (int  x,  int  y,  char  s[]) 

{ 

gotoxy(x,  y) ; 
cputs (s)  ; 

) 
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PokeChar 


/* 


PURPOSE  ;  puts  char  ch  with  attribute  att  at  location  x,y  on 
screen 

ASSUMES  :  nothing 

CALL  :  PokeChar (x,y,ch, att ) ; 

INPUT  PARAMETERS  :  int  X,  int  Y,  int  ch,  int  att 

X  ,  y  —  col,  line  niimbers 

ch  —  char  to  be  put  on  screen 

att  —  attributes  (background  and  foreground 

colors)  for  ch 

FUNCTION  CALLS (  other  than  standard  functions  )  ;  none 

RETURNS  ;  nothing 

SIDE  EFFECTS  :  none 

- */ 


void  PokeChar (int  x,  int  y,  int  ch,  int  att) 
{ 

int  vch  =  (ch&255) j  (att<<8) ; 
vpoke(VSeg,  vad(x,  y) ,  vch); 

} 
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VPoke 


/* 


PURPOSE  :  puts  char  ch  at  a  given  location  on  screen 

ASSUMES  :  nothing 

CALL  :  VPoke (vseg,  adr,  ch) ; 

INPUT  PARAMETERS  :  unsigned  vseg,  unsigned  adr,  unsigned  ch) 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- 

void  VPoke (unsigned  vseg,  unsigned  adr,  unsigned  ch) 

{ 

if  (vseg  ==  OxbOOO) 

poke (vseg,  adr,  ch) ; 

else 

{ 

_DI  =  adr ; 

_ES  =  vseg;  /*  color  monitor  */ 

asm  cld; 

_BX  =  ch; 

_DX  =  986; 

do 

asm  in  al,dx; 
while  (_AL  &  1)  ; 

do 

asm  in  al,dx; 
while  ( ! (_AL  &  1) ) ; 

_AL  =  _BL; 

asm  stosb; 

do 

asm  in  al,dx; 
while  (_AL  &  1)  ; 

do 

asm  in  al,  dx; 
while  ( » (_AL  &  1) ) ; 

_AL  =  _BH; 
asm  stosb; 

} 

) 
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/* - 

PokeStr 

PURPOSE  :  puts  string  pointed  to  by  str,at  location  x,y  on 
screen.  Each  char  in  the  string  uses  NewTextAttr 
ASSUMES  :  NewTextAttr  has  been  set 
CALL  :  PokeStr (x,y, str) ; 

INPUT  PARAMETERS  :  int  X,  int  y,  char  *str 

X  ,  y  —  col,  line  numbers 

str  —  pointer  to  char  string  to  be  put  on 
screen 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

PokeChar (x, y , ch, att) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  PokeStr (int  x,  int  y,  char  *str) 

{ 

int  len  =  strlen(str) ; 
int  i ; 

for  (i  =  0;  i  <  len;  i++) 

PokeChar (x+i ,  y,  str[i],  NewTextAttr); 

} 

/* - 

WindowWidth 

PURPOSE  ;  returns  the  width  of  the  current  window  on  screen 
ASSUMES  :  window  has  been  created 
CALL  :  WindowWidth ( ) ; 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  returns  the  width  of  the  window 
SIDE  EFFECTS  :  none 

- */ 

int  WindowWidth (void) 

{ 

struct  text_info  info; 
gettextinfo(&info) ; 

return ( inf o.winright  -  info.winleft) ; 

) 
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CenterText 


/* 


PURPOSE  :  finds  the  width  of  the  window,  and  writes  a  char  string 
at  the  center  of  the  line  given  by  y 
ASSUMES  :  window  has  been  created 
CALL  :  CenterText ( y , s [ ] ) ; 

INPUT  PARAMETERS  :  int  y,  char  s[] 

y  —  line  nuiaber  on  which  to  write  the  string 
s[]  —  the  char  string  to  be  written 
FUNCTION  CALLS (  other  than  standard  functions  )  :  Xystr(x,y,s) 

WindowWidth ( ) 

RETURNS  ;  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  CenterText ( int  y,  char  s[]) 

{ 

int  x,xl; 


X  =  WindowWidth ( )  /  2; 
xl  =  strlen(s)  /  2; 
XYStr(x-xl,  y,  s) ; 


/*  get  window  width  */ 

/*  write  string  at  center  of  line  in 
window  */ 
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DrawBorder 


/* 


PURPOSE  :  draws  a  border  for  a  window 
ASSUMES  ;  nothing 

CALL  :  DrawBorder(xl,yl,x2,y2,border,boxbg,boxfg, title, mess, 

shadow,  explode) ; 

INPUT  PARAMETERS  :  int  xl, yl,x2,y2, border, boxbg,boxfg; char 

title, mess ; 

int  shadow,  explode) ; 

xl,  x2  —  box  left  and  right  column  numbers 

yl,  y2  —  box  top  and  bottom  line  numbers 

border  —  type  of  border 

Single_Single  —  1 

Double_Double  —  2 

Single_double  —  3 

boxbg,  boxfg  —  box  background  and  foreground 

color  codes 

title,  mess  —  window  title,  message  within 

window 

shadow  --  1  if  shadow  is  required  for  window 
explode  —  1  if  a  window  needs  to  opened  and 
expanded  to  the  box  size  int  x,  int 
y,  int  att 
X  —  col  number 
y  —  line  number 

att  —  attributes  of  char  at  x,y  which  are 
required 

FUNCTION  CALLS (  other  than  standard  functions  )  ;  PokeStr(x,y,s) 

Attr (bg, fg) 

RETURNS  ;  nothing 
SIDE  EFFECTS  :  none 

- */ 


void  DrawBorder ( int  xl,  int  yl,  int  x2,  int  y2, 

boxbg,  int  boxfg,  char  title[], 
shadow,  int  explode) 

{ 

BYTE  Hth  ; 

BYTE  Len ; 
int  X ; 


BYTE  contflag; 
BYTE  ratio; 
BYTE  xlmid; 
BYTE  ylmid; 
BYTE  x2mid; 
BYTE  y2mid; 
div  t  ans; 


int  border,  int 
char  mess[],  int 


Attr (boxbg,  boxfg) ; 
Len  =  x2  -  xl  +  1; 
Hth  =  y2  -  yl  +  1; 
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/* 

if  window  needs  to  be  expanded  slowly,  determine  ratio,  and 
draw  window  repeatedly  ,with  a  delay  of  5  millisecs  each 
time,  until  the  required  size  is  obtained. 

*/ 

if  (explode) 

{ 

ans  =  div(x2-xl,  2)  ,* 
x2mid  =  ans.quot  +  xl  -f-  2; 
ans  =  div(y2~yl,  2); 
y2mid  =  ans.quot  +  yl  +  2; 
xlmid  =  x2mid  -  3 ; 
ylmid  =  y2mid  -  3 ; 

if  ((X2-X1+1)  <  (y2-l+l)) 
ratio  =  2; 

else 

ratio  =  1; 

contflag  =  True; 

while  (contflag) 

{ 

window (xlmid,  ylmid,  x2mid,  y2mid) ;  /*  draw  a  window  */ 
clrscrO;  /*  clear  the  screen 

*/ 

if  (xlmid  >=  xl  +  (l*ratio))  /*  if  ximid  +  ratio 

<  xi  add  */ 

xlmid  s=  xlmid  -  (l*ratio)  ;  /*  ratio  to  it  */ 

else 

xlmid  =  xl;  /*  else  make  ximid 

=  xi  */ 

if  (x2mid  +  (l*ratio)  <=  x2) 
x2mid  =  x2mid  +  (l*ratio) ; 

else 

x2mid  =  x2; 

if  (ylmid  >  yl) 

ylmid  -  ylmid  -  1; 

if  (y2mid  +  i  <=  y2) 
y2mid  =  y2mid  +  1; 

else 

y2mid  =  y2 ; 


) 


delay(5);  /*  delay  by  5 

milliseconds  */ 

if  (xlmid  ==  xl  &&  x2mid  ==  x2  &&  ylmid  ==  yl  &&  y2mid 
==  y2) 

contflag  =  False;  /*  stop  when  all  4  corners  are 

reached  */ 
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window (xl,  yl,  x2,  y2) ; 
clrscrO  ; 

/*  draw  shadow  if  shadow  is  required  */ 

if  (shadow  ==  l) 

window(xl,  yl,  x2+3,  y2+l) ; 


/* 

Based  on  the  border  value,  draw  the  border 
Single_S ingle  —  1 
Double_Double  —  2 
Single_double  —  3 

*/ 

switch  (border) 

( 

case  1  : 

{ 

PokeStr(xl,  yl,  "Z”)  ; 

PokeStr (xl+T,en-l,  yl,  ••?••)  ; 

PokeStr(xl,  yl+Hth-l,  ''g”)  ; 

for  (x=l;  X  <  Len-1;  x++) 

{ 

PokeStr (xl+x,  yl,  "D”) ; 

PokeStr (xl+x,  yl+Hth-l,  ”D'')  ; 

} 

for  (x=l;  X  <  Hth-1;  x++) 

{ 

PokeStr(xl,  yl+x,  ”3”); 

PokeStr (xl+Len-1,  yl+x,  "3")  ; 

} 

PokeStr  (x2,  y2,  •'¥"); 
break; 

) 
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case  2  : 

{ 

PokeStr(xl,  yl,  *'1")  ; 

PokeStr (xl+Len-1,  yl, 

PokeStr(xl,  yl+Hth-1,  «H'')  ; 

for  (x  =  1;  X  <  Len-1;  x++) 

{ 

PokeStr(xl+x,  yl,  ''M”)  ; 

PokeStr(xl+x,  yl+Hth-1,  "M") ; 

} 

for  (x=l;  X  <  Hth-1;  x++) 

{ 

PokeStr(xl,  yl+x,  ; 

PokeStr (xl+Len-1,  yl+x, 

} 

PokeStr(x2,  y2 ,  ; 

break; 

} 

case  3  : 

{ 

PokeStr (xl,  yl,  "U'*); 

PokeStr (xl+Len-1,  yl,  ”8")  ; 

PokeStr(xl,  yl+Hth-1,  ”T'*); 

for  (x=l;  X  <  Len-1;  x++) 

( 

PokeStr (xl  +  x,  yl,  "M”)  ; 

PokeStr (xl  +  x,  yl  +  Hth  -  1,  "M") ; 

} 

for  (x  =  1;  X  <  Hth-1?  x++) 

{ 

PokeStr (xl,  yl+x,  "3”) ; 

PokeStr(xl+  Len-1,  yl+x,  "3") ; 

} 

PokeStr(x2,  y2,  ; 

break; 

} 

) 

Pokes tr(xl+(Len  /  2)  -  (strlen(title)  /  2),  yl,  title);  /*  put 
title  */ 

PokeStr (xl+ (Len  -  (strlen (mess) )  -  2),  yl+Hth-1,  mess);  /*  put 
message  */ 
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DrawShadow 


/* 


PURPOSE  :  draws  a  shadow  for  a  window 
ASSUMES  :  nothing 

CALL  :  DrawShadow(xl,yl,x2,y2) ; 

INPUT  PARAMETERS  :  int  Xl,yl,x2,y2 

xl,  x2  —  box  left  and  right  column  numbers 
yl,  y2  —  box  top  and  bottom  line  numbers 
FUNCTION  CALLS (  other  than  standard  functions  )  :  Attr(bg,fg) 

PokeChar(x,y  ch,att) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 


void  DrawShadow ( int  xl,  int  yl,  int  x2,  int  y2) 

{ 

int  Hth ; 
int  Len ; 
int  x; 
char  buf [4 ] ; 

Len  =  x2  -  xl  +  1 ; 

Hth  =  y2  -  yl  +  1; 

Attr( BLACK,  LIGHTGRAY) ;  /*  set  attributes  */ 

for  (X  =  1;  X  <  Hth;  x++) 

{ 

gettext (x2+l ,  yl+x,  x2+2,  yH-x,  buf)  ;  /*  save  the  text  in 

window  */ 

PokeChar (x2+l,  yl+x,  buf[0],  NewTextAttr) ;  /*  write  back 

w/new  attr  */ 

PokeChar (x2+2 ,  yl+x,  buf[2),  NewTextAttr); 

#if  0 

gotoxy (Len+1,  x+1) ; 
putch(buf [0] ) ; 
putch(buf [2] ) ; 

#endif 

} 

for  (X  =  2;  X  <  Len+2 ;  x++) 

{ 

gettext (xl+x,  yl+Hth,  xl+x,  yl+Hth,  buf); 

PokeChar (xl+x,  yl+Hth,  buf[0],  NewTextAttr); 

) 
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DrawWindow 


/* 


PURPOSE  :  draws  a  window, its  border,  shadow  and  sets  the  new 
attributes  for  the  text 
ASSUMES  :  window  does  not  exist 

CALL  :  DrawWindow (xl,yl,x2,y2, border, bg, fg,boxbg,boxfg, title, 

mess, shadow,  explode) ; 

INPUT  PARAMETERS  :  int  xl, yl,x2,y2, border, boxbg,boxfg; char 

title,mess;int  shadow,  explode) ; 

xl,  x2  —  box  left  and  right  column  numbers 

yl,  y2  —  box  top  and  bottom  line  numbers 

border  —  type  of  border 

Single_S ingle  —  1 

Double_Double  —  2 

Single_double  —  3 

bg,  gf  —  background  and  foreground  colors  for 
text 

boxbg,  boxfg  —  box  background  and  foreground 

color  codes 

title,  mess  —  window  title,  message  within 

window 

shadow  —  1  if  shadow  is  required  for  window 
explode  —  1  if  a  window  needs  to  opened  and 
expanded  to  the  box  size  int  x,  int 
y ,  int  att 
X  —  col  number 
y  —  line  number 

att  —  attributes  of  char  at  x,y  which  are 
required 

FUNCTION  CALLS (other  than  standard  functions): 

DrawBorder (xl, . . .explode) 

Drawshadow ( xl , y 1 , x2 , y 2 ) 

Atrr (bg, fg) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  DrawWindow  (int  xl,  int  yl,  int  x2,  int  y2,  int  border,  int  bg, 
int  fg,  int  boxbg,  int  boxfg,  char  title[],  char  mess[],  int 
shadow,  int  explode) 

{ 

DrawBorder (xl,yl,x2,y2,  border,  boxbg,  boxfg,  title,  mess, 
shadow,  explode) ; 

if  (shadow) 

DrawShadow(xl ,  yl,  x2,  y2) ; 

Attr(bg,  fg) ; 

window(xl+l,  yl+1,  x2-l,  y2-l) ; 
clrscrO  ; 

} 
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SaveWindowParts 


/* 


PURPOSE  :  Saves  the  contents, and  parameters  of  the  window, 
specified  by  parameters. These  are  stored  in 
WindArr  [++WinCount] .  The  type  description  of  WindArray 
is  in  file  clib.h 

ASSUMES  :  window  has  been  created,  and  exists 
CALL  :  SaveWindowParts(xl,yl,x2,y2, shadow) ; 

INPUT  PARAMETERS  :  int  xl , yl , x2 , y2 , shadow; 

xl,  x2  —  box  left  and  right  column  numbers 
yl,  y2  —  box  top  and  bottom  line  numbers 
shadow  —  1  if  shadow  is  required  for  window 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

SaveScreen(xl, . . . ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  SaveWindowParts (int  xl,  int  yl,  int  x2,  int  y2 ,  int  shadow) 

{ 

if  (WinCount  <  MAXWINDOWS-1) 

{ 

if  (shadow  ==  1) 

SaveScreen(xl,  yl,  x2+3,  y2+l, 

&WindArr[++winCount] .Windsor) ; 

else 

SaveScreen(xl,  yl,  x2,  y2, 

&WindArr[++WinCount] .Windsor) ; 

WindArr [WinCount] .xl  =  xl; 

WindArr [WinCount ] .yl  =  yl; 

WindArr [WinCount] . x2  =  x2; 

WindArr [WinCount] .y2  =  y2; 

WindArr [WinCount ]. shadow  =  shadow; 

} 

} 
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PushWindow 


/* 


PURPOSE  :  saves  a  window, and  redraws  it,  at  the  same  location  on 
the  screen.  This  new  window  is  not  expanded  slowly. 
ASSUMES  :  window  exists 

CALL  ;  PushWindow(xl, yl,x2,y2, border, bg, fg,boxbg,boxfg, 

title, mess, shadow) ; 

INPUT  PARAMETERS  :  int  xl, yl,x2,y2, border, boxbg,boxfg; char 

title,mess;int  shadow 

xl,  x2  —  box  left  and  right  column  numbers 

yl,  y2  —  box  top  and  bottom  line  numbers 

border  —  type  of  border 

Single_S ingle  —  1 

Double_Double  —  2 

Single_double  —  3 

—  background  and  foreground  colors  for 
text 

boxbg,  boxfg  —  box  background  and  foreground 

color  codes 

title,  mess  —  window  title,  message  within 

window 

shadow  —  1  if  shadow  is  required  for  window 
FUNCTION  CALLS (  other  than  standard  functions  )  ; 

SaveWindowParts (xl , . . . ) 

DrawWindow(xl, . ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 


void  PushWindow  (int  xl,  int  yl,  int  x2,  int  y2,  int  border,  int  bg, 

int  fg,int  boxbg,  int  boxfg,  char  title[],  char 
mess [ ] ,  int  shadow) 

{ 


SaveWindowParts (xl,  yl,  x2 ,  y2,  shadow); 

DrawWindow ( xl , y 1 , x2 , y2 , border , bg , f g , boxbg , boxfg , tit le , mess , 
shadow, False) ; 


} 
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ExplodeWindow 


/* 


PURPOSE  :  saves  a  window, and  redraws  it,  at  the  same  location  on 
the  screen.  This  new  window  is  expanded  slowly. 
ASSUMES  :  window  exists 

CALL  :  ExplodeWindow (xl,  yl,  x2,  y2,  border,  bg,  fg,  boxbg, 

boxfg,  title,  mess,  shadow) ; 

INPUT  PARAMETERS  :  int  xl,yl,x2,y 2, border, boxbg, boxfg; char 

title, mess ; int  shadow 

xl,  x2  —  box  left  and  right  column  numbers 

yl,  y2  —  box  top  and  bottom  line  numbers 

border  —  type  of  border 

Single_Single  —  1 

Double_Double  —  2 

Single_double  —  3 

—  background  and  foreground  colors  for 
text 

boxbg,  boxfg  —  box  background  and  foreground 

color  codes 

title,  mess  —  window  title,  message  within 

window 

shadow  —  1  if  shadow  is  required  for  window 
FUNCTION  CALLS (  other  than  standard  functions  ) ; 

SaveWindowParts(xl, . . . ) 

DrawWindow(xl, . ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 


void  ExplodeWindow  (int  xl,  int  yl,  int  x2,  int  y2,  int  border,  int 

bg,  int  fg,  int  boxbg,  int  boxfg,  char  title[], 
char  mess[],  int  shadow) 

{ 


SaveWindowParts (xl ,  yl,  x2,  y2,  shadow) ; 

DrawWindow(xl,  yl,  x2,  y2,  border,  bg,  fg,  boxbg,  boxfg,  title, 
mess,  shadow.  True) ; 


) 
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PopWindow( ) 


/* 


PURPOSE  :  pops  a  window  on  the  screen,  copies  text  from  memory  on 
to  the  screen  window,  sets  background  and  foreground 
colors,  sets  the  text  mode, defines  an  active  window  for 
text,  and  places  the  cursor  at  the  current  position, 
reduces  the  number  of  saved  windows  by  1. 

ASSUMES  :  window  has  been  previously  saved 

CALL  :  PopWindowO  ; 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  RestScreen ( . . . . ) 

RETURNS  :  nothing 

SIDE  EFFECTS  :  none 

- */ 

void  PopWindowO 

{ 

if  (WinCount  >=  0) 

if  (WindArr [WinCount] . shadow  ==  1)  /*  if  window  has  a 

shadow  */ 

RestScreen (  WindArr [WinCount ] .xl, 

WindArr [WinCount] .yl, 

WindArr [WinCount] . x2+3 , 

WindArr [WinCount] .y2+l, 

SWindArr [WinCount] .Windsor) ; 

else 

RestScreen(  WindArr [ WinCount ] .xl, 

WindArr [WinCount] .yl, 

WindArr [WinCount] .x2 , 

WindArr [WinCount] .y2, 

SWindArr [WinCount] .Windsor) ? 

WinCount — ;  /*  decrement  the  number  of  windows  */ 

} 

} 
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DrawBottomBar 


/* 


PURPOSE  :  writes  a  character  string  at  the  center  of  the  line  on 
the  screen.  If  the  string  has  a  '  in  it,  the  characters 
following  it  are  highlighted. 

ASSUMES  :  nothing 

CALL  :  DrawBottomBar (linenum,  bstr) ; 

INPUT  PARAMETERS  :  int  linenum;  char  bstr 

linenum  —  linenum  on  which  to  print  the 

character  string 

bstr  —  character  string 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

PokeChar ( x , y , ch , att ) 

RETURNS  :  nothing 

SIDE  EFFECTS  ;  none 

- */ 


void  DrawBottomBar (int  linenum,  char  *bstr) 

{ 

BOOLEAN  onflag  =  False; 
int  X,  i; 

X  =  1; 

/*  put  leading  blanks  */ 

for  (i  =  1;  i  <=  (80-strlen(bstr) )  /  2;  i++,  x++) 
PokeChar (X,  linenum,  '  ',  bNormal) ; 

/*  search  for  ' ' '  */ 
for  (i  =0;  i  <  strlen (bstr) ;  i++) 
if  (*(bstr+i)  «  •*•) 
onflag  =  ! onflag; 

else 

{ 

/*  ' ■ '  already  found  */ 
if  (onflag) 

PokeChar(x,  linenum,  *(bstr+i),  bCharHi) ; 

else 

PokeChar(x,  linenum,  *(bstr+i),  bNormal); 

X++; 

) 

/*  put  trailing  blanks  */ 
for  (;  X  <  81;  x++) 

PokeChar (X,  linenum,  '  ',  bNormal); 

} 
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DrawTopBar 


/* 


PURPOSE  :  changes  the  text  attributes,  saves  old  attributes, 

writes  blank  characters  on  line  number  1  with  new 

attributes,  puts  character  string  at  the  center  of 
line,  restores  old  text  attributes. 

ASSUMES  :  nothing 

CALL  :  DrawTopBar (header) ; 

INPUT  PARAMETERS  :  char  ‘header 

header  —  pointer  to  buffer  holding  the  header 
string 

FUNCTION  CALLS (  other  than  standard  functions  ):  Attr(bg,fg) 

PokeChar ( x , y , ch , a tt ) 
CenterText(y,s) 

RETURNS  :  nothing 

SIDE  EFFECTS  :  none 

- */ 


void  DrawTopBar (char  ‘header) 

{ 

int  x; 

Attr (LIGHTGRAY,  BLACK) ;  /‘  set  attributes  */ 
for  (X  =  1;  X  <  81;  x++) 

PokeChar(x,  1,  '  NewTextAttr)  ;  /‘  clear  line  for  header 

*/ 

/*  write  header  ‘/ 


CenterText ( 1 ,  header) ; 
textattr (OldTextAttr) ; 


■ 
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PosStr 


/* 


PURPOSE  ;  returns  the  index  at  which  a  substring  occurs  in  a 
string 

ASSUMES  :  nothing 

CALL  :  X  =  PosStr (str, substr, index) ; 

INPUT  PARAMETERS  :  char  *str,  *substr 

unsigned  int  index 

str,  substr  —  pointers  to  string  and  substring 
index  —  index  in  string,  after  which  to 
search  for 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  ;  index  where  substring  is  found  in  string  return  -1  if  not 
found 

SIDE  EFFECTS  :  none 


- */ 

int  PosStr(char*  str,  char*  substr,  unsigned  int  index) 

{ 

char  *ptr; 


ptr  =  strstr ( (str+index) ,  substr); 

if  (ptr  !=  0) 

return (ptr  -  str) ; 

else 

return  -1; 
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PosChar 


/* 


PURPOSE  :  returns  the  index  at  which  a  char  occurs  in  a  string, 
after  a  given  index  in  string 
ASSUMES  :  nothing 

CALL  :  X  =  PosChar (str,ch, index) ; 

INPUT  PARAMETERS  :  char  *str,  ch 

int  index 

str  —  pointer  to  string 
ch  —  character  to  search  for 
index  —  index  in  string,  after  which  to 
search  for 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  index  where  character  is  found  in  string  return  -1  if  not 
found 


SIDE  EFFECTS  :  none 


*/ 


int  PosChar (char*  str,  char  ch,  int  index) 

{ 

int  k; 

unsigned  int  n  =  strlen(str) ; 


/*  search  from  index  onwards  in  str  */ 

for  (k  =  index;  ((*(str+k)  1=  ch)  &&  (k  <  n) ) ;  k++) 


if  (k  ==  n) 

k  =  -l;  /*  not  found  after  index  */ 

return  k; 
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FindLastOccurance 


/* 


PURPOSE  :  returns  the  index  at  which  a  char  occurs  in  a  string, 
starting  from  the  rightmost  character  in  the  string 
ASSUMES  :  nothing 

CALL  :  X  =  FindLastOccurance (str, ch) ; 

INPUT  PARAMETERS  :  char  *str,  ch 

str  —  pointer  to  string 
ch  —  character  to  search  for 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  last  index  where  character  is  found  in  string 
SIDE  EFFECTS  :  the  function  returns  0  if  the  ch  is  not  found! ! ! 
- */ 


int  FindLastOccurance (char  *str,  char  ch) 
{ 

unsigned  int  n  =  strlen(str) ; 
int  i  =  n-1; 

for  (;  i  >  0;  i — ) 

if  (*(str+i)  ==  ch) 
break; 

return (i)  ; 

} 
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Insert 


/* 


PURPOSE  :  inserts  a  svibstring  in  a  string,  if  the  given  index  is 
within  the  string,  else  concatenates  the  substring  to 
the  string. 

ASSUMES  :  nothing 

CALL  ;  Insert (str,substr, index) ; 

INPUT  PARAMETERS  :  char  *str , *substr, 

unsigned  int  index 
str  —  pointer  to  string 
substr  —  to  insert 
index  —  index  where  to  insert 
FUNCTION  CALLS (  other  than  standard  functions  )  ;  none 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  Insert (char*  str,  char*  substr,  unsigned  int  index) 

{ 

unsigned  int  la  =  strlen  ( substr)  ; 
unsigned  int  n  =  strlen (str) ; 

if  (index  <  n) 

{ 

/*  index  lies  within  the  string  */ 

ineniitvove(  (str+index+m) ,  (str+index)  ,  n+l-index)  ; 

inemniove(  (str+index)  ,  substr,  m)  ; 

} 

else 

ineininove(  (str+n)  ,  substr,  m+l)  ;  /*  concatenate  the  substr  */ 

} 
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Delete 


/* 


PURPOSE  :  deletes  a  specified  number  of  characters  from  a  string, 
at  a  specified  position  in  it. 

ASSUMES  :  nothing 

CALL  :  Delete (str, index, count) ; 

INPUT  PARAMETERS  :  char  *str, *substr , 

unsigned  int  index 
str  —  pointer  to  string 
count  —  number  of  chars  to  delete 
index  —  index  where  to  delete 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  Return  -1  if  the  string  is  empty  or  the  number  of 

characters  to  be  deleted  is  0  or  if  the  position  in 
the  string  is  invalid.  Else  return  a  0. 

SIDE  EFFECTS  :  none 


*/ 


int  Delete (char*  str,  unsigned  int  index,  unsigned  int  count) 

{ 

unsigned  int  n  =  strlen(str) ; 

/*  if  invalid  index,  set  it  to  0  */ 
if  (index  <  0) 
index  =  0; 

/*  if  count  =  0,  return  a  ~l  */ 
if  (count  ®=  0) 
return  -1; 

/*  if  string  is  empty,  return  -1  */ 
if  (!str[0]) 
return  -1; 

if  (index  <  n) 

{ 

if  ( (index+count-1)  >=  n)  /*  index  lies  within  string  */ 
str[index]  =  '\0';  /*  exceed  string  length  after 

deleting  */ 

else 

meramove( (str+index) ,  (str+index+count) , 
n-index-count+1) ; 

return  0 ; 

} 

else 

return  -1; 


} 
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PadLeft 


/* 


PURPOSE  :  pads  a  string  with  leading  blanks,  until  it  gets  a 
specified  length 
ASSUMES  :  nothing 
CALL  :  PadLeft (str, num) ; 

INPUT  PARAMETERS  :  (char  *str,int  num) 

char  *str  —  source  string 
int  num  —  desired  length  of  the  string 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Insert (str, substr, index) 

RETURNS  :  Return  the  string. 

SIDE  EFFECTS  :  none 

- */ 


char  *PadLeft (char*  str,  int  num) 
{ 

while  (strlen(str)  <  num) 
Insert(str,  ”  ",  0) ; 

return (str) ; 

) 


/* 


PadRight 


PURPOSE  :  pads  a  string  with  trailing  blanks,  until  it  gets  a 
specified  length 
ASSUMES  :  nothing 
CALL  :  PadRight (str, num) ; 

INPUT  PARAMETERS  :  (char  *str,int  num) 

char  *str  —  source  string 
int  num  —  desired  length  of  the  string 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Insert (str, substr, index) 

RETURNS  ;  Return  the  string. 

SIDE  EFFECTS  :  none 

- */ 


char  *PadRight (char*  str,  int  num) 

{ 

while  (strlen(str)  <  num) 

Insert(str,  "  ",  strlen(str) +1) ; 

return (str) ; 

} 
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LTrim 


/* 


PURPOSE  :  trims  a  string  on  the  left,  by  removing  the  leftmost 
blanks  (or  end  of  string  is  reached) 

ASSUMES  :  nothing 
CALL  :  LTrim (str) ; 

INPUT  PARAMETERS  :  char  *str  —  source  string 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Dexete(str, index, count) 

RETURNS  :  Return  the  trimmed  string. 

SIDE  EFFECTS  :  none 

- */ 


char  *LTriro(char*  str) 

{ 

int  i,  count  =  0; 

/*  traverse  string  till  end/  blank  is  reached  */ 
for  (i  =  0;  ((*(str+i)  'XO')  &&  (*(str+i)  ==  ’  '));  i++) 

count++ ; 

Delete (str,  0,  count)  ; 
return (str) ; 

) 

/* - 

RTrim 

PURPOSE  :  trims  a  string  on  the  right,  by  removing  the  rightmost 
blanks  (or  end  of  string  is  reached) 

ASSUMES  ;  nothing 
CALL  :  RTrim (str) ; 

INPUT  PARAMETERS  :  char  *str  —  source  string 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  Return  the  trimmed  string. 

SIDE  EFFECTS  :  none 

- */ 


char  *RTrim(char*  str) 

{ 

int  i,  count  =  0; 

unsigned  int  len  *  strlen(str) ; 

/*  traverse  string  till  end/  blank  is  reached  */ 
for  (i  =  len-1;  ((i  >=  0)  &&  (*(str+i)  =«  '  ' ) ) ;  i — ) 
count++ ; 

str[ len-count]  *  '\0'; 
return (str) ; 

) 
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Replicate 


/* 


PURPOSE  ;  fills  up  a  string  with  a  given  character, upto  a  given 
length  (trims  the  string  till  there)  and  returns  it. 
ASSUMES  :  string  is  not  empty 
CALL  :  Replicate  (str, ch, count) ; 

INPUT  PARAMETERS  :  (char  *str,char  ch,  unsigned  int  count) 

str  —  source  string 

ch  —  char  to  replace  the  string  characters 
with 

count  —  index  in  string  till  where  to  replace 
FUNCTION  CALLS (  Other  than  standard  functions  )  :  none 
RETURNS  :  Return  the  trimmed  string. 

SIDE  EFFECTS  :  none 

- */ 


char  *Replicate (char  *str,  char  ch,  unsigned  int  count) 
{ 

memset(str,  ch,  count) ; 
str [count]  =  '\0'; 
return (str) ; 

) 


/* - */ 

/* - */ 

/* - */ 

/* - 

FlushKeybdBuf  f er 

PURPOSE  :  empties  the  keyboard  buffer 

ASSUMES  :  nothing 

CALL  :  FlushKeybdBuf f er () ; 


INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 


void  FlushKeybdBuffer 0 

{ 

while  (kbhitO) 
getch ( ) ; 

} 
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InKey 


/* 


PURPOSE  :  gets  a  key  hit  from  keyboard,  returns  it,  sets  LastKey 
based  on  the  key  hit 
ASSUMES  ;  nothing 
CALL  ;  InKey ( ) ; 

INPUT  PARAMETERS  :  none 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  key  hit 
SIDE  EFFECTS  :  none 

- */ 

int  InKey 0 
{ 

int  ch; 

ch  =  getchO ;  /*  get  char  from  keyboard  */ 

if  (ch  ==  0) 

{ 

ch  =  getchO  ; 

LastKey  =  ch+255; 

) 

else 

{ 

if  (isdigit (ch) ) 

LastKey  =  NumberKey; 

else 

if  ((ch  >=  32)  &&  (ch  <=  255)) 

LastKey  =  TextKey; 

else 

LastKey  =  ch; 

) 

return (ch) ; 

) 
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CheckKeyList 


/* 


PURPOSE  :  checks  if  the  last  key  hit  is  a  valid  key  or  not  (an 
element  in  KeyList  ) 

ASSUMES  ;  nothing 

CALL  :  CheckKeyList ( EndKeys) ; 

INPUT  PARAMETERS  :  Key list  EndKeys 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  ;  boolean 
SIDE  EFFECTS  :  none 

- — */ 

BOOLEAN  CheckKeyList (KeyList  EndKeys) 

{ 

int  i; 

BOOLEAN  ExitFlag; 

i  =  1; 

ExitFlag  =  False; 

/*  while  no  match  found  with  EndKeys  element,  repeat  */ 
do 

if  (LastKey  ==  EndKeys . KEYS [ i ] ) 

ExitFlag  =  True;  /*  found  match  */ 

else 

i++; 

while  ((lExitFlag)  &&  (i  <=  EndKeys . NUM) ) 


return (ExitFlag) ; 

} 
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/* 


Inputstring 

PURPOSE  :  gets  an  input  string  from  the  keyboard , checks  if  the 
last  key  hit  is  a  valid  key  or  not  (an  element  in 
KeyList  )  and  if  it  is  takes  the  appropriate  action 
(eg.  Backspace  key,  RightArrow  key) 

ASSUMES  :  nothing 

CALL  :  Inputstring (s,len, col, row, bg, fg, EndKeys) ; 

INPUT  PARAMETERS  :  (char  *s,  int  len,  int  col,  int  row,  int  bg, 

int  fg,  KeyList  EndKeys) 

s  -  pointer  to  output  string  from  keyboard 
bg,fg  —  background,  foreground  attributes 
col, row  —  position  of  string 
len  —  length  of  string 

EndKeys  —  list  of  keys  other  than  text 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

SaveCursorStatus ( ) 

Attr (bg, fg) 

XYStr ( row, col , str) 

CursorSmall ( ) 

CursorBig ( ) 

CheckKeyList (EndKeys) 

RestoreCursorStatus ( ) 


RETURNS  :  nothing 

SIDE  EFFECTS  ;  InsertOn,  LastKey  get  changed 


*/ 


void  Inputstring (char  *s,  int  len,  int  col,  int  row,  int  bg,  int 

fg,  KeyList  EndKeys) 

{ 

char  buff [MAXINPUTLEN] ; 
int  c,  cl,  bindex,  blen; 

BOOLEAN  modflag,  ClearFlag; 


SaveCursorStatus ( ) ;  /*  save  cursor  */ 

Attr(bg,  fg) ;  /*  reset  attributes  */ 

cl  =  col; 
modflag  =  False; 

ClearFlag  =  True; 
bindex  =  0; 

memset(buff,  '  ',  len);  /*  clear  buf  */ 
buff [len]  =  '\0'; 

XYStr(col,  row,  buff);  /*  display  buf  */ 
strcpy(buff ,  s) ; 
blen  =  strlen(s) ; 


if  (blen  <  len) 
buff[blen]  = 
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XYStr(col,  row,  buff) ; 


while  (True) 

{ 

gotoxy(cl,  row) ; 

if  (InsertOn)  /*  Insert  key  is  pressed  */ 

CursorBigO  ; 

else 

CursorSmall ( )  ; 
c  =  InKeyO  ; 

CursorOffO;  /*  turn  cursor  off  */ 

/*  take  appropriate  action,  based  on  key  pressed  */ 
switch  (LastKey) 

{ 

case  HomeKey: 

{ 

cl  =  col ; 
b index  =  0; 
break; 

) 

case  RightArrow: 

{ 

C1++; 

bindex++; 

ClearFlag  *  False; 
break; 

) 

case  EndKey: 

{ 

for  (  bindex  =  len-1; 

(buff [bindex]  «=  '  ' )  &&  (bindex  >  0) ; 
bindex — ) 


bindex++; 

cl  =  col  +  bindex; 
ClearFlag  =  False; 
break; 
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case  LeftArrow: 

{ 

cl — ; 
b index — ; 
break ; 

) 

case  Del Key: 

{ 

meininove  (buf f+bindex,  buff+bindex+1,  len-bindex-1)  ; 
buff [len-1]  =  '  ' ; 

XYStr(cl,  row,  &buf f [bindex] ) ; 
modflag  =  True; 

ClearFlag  =  False; 
break ; 

) 

case  InsKey: 

{ 

InsertOn  =  llnsertOn; 
break; 

} 

case  BackSpaceKe”: 

{ 

if  (bindex  >  0) 

{ 

meiamove  ( buf f +bindex- 1 ,  buf f+b index , 
len-bindex) ; 
buff [len-1]  »  ' 
bindex — ; 
cl — ; 

xystr(cl,  row,  fibuff [bindex] ) ; 
modflag  =  True; 

} 

break; 

) 
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case  NumberKey: 
case  TextKey: 

{ 

if  (InsertOn) 

{ 

memmove (buf f+bindex+1 ,  buf f+bindex, 
len-bindex-1) ; 
buff[bindex]  =  c; 

XYStr(cl,  row,  buf f+bindex) ; 

} 

else 

{ 

if  (ClearFlag) 

{ 

memset (buff ,  *  ' ,  len) ; 
buff[len]  =  '\0'; 
xystr(col,  row,  buff) ; 
gotoxy(cl,  row) ; 

ClearFlag  =  False; 

} 

putch(c) ; 
buff[bindex]  =  c; 

} 

cl++; 
bindex++; 
mod flag  »  True; 
break; 

) 

} 

if  (CheckKeyList (EndKeys) ) 
break; 

if  (bindex  <  0) 

( 

cl  =  col; 
bindex  =  0; 

} 

else 

if  (bindex  >=  len) 

{ 

bindex  =  len  -  1; 
cl  =  col  +  bindex; 


} 
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if  (nodflag) 

{ 

for  (bindex  ®  len-1;  (buff  [bindex]  *=  '  ')  &&  (bindex  >  0)  ; 
blndex — ) 


strncpy(s,  buff,  bindex+1) ; 
s[biridex+l]  *  'XO'; 

} 

RestoreCursorStatus 0 ;  /*  restore  cursor  */ 
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Question 


/* 


PURPOSE  :  draws  a  query  window  on  screen,  writes  a  question  to 
it,  gets  the  reply,  and  checks  for  key  pressed,  which 
could  be  ESC  or  CR.  The  window  is  popped  off  the  screen 
and  returns  the  reply. 

ASSUMES  :  nothing 

CALL  :  Question(question,default_ans,ans,bg, fg) ; 

INPUT  PARAMETERS  :  (char  * quest ion, char  *default_ans,char 

*ans,BYTE  bg,BYTE  fg) 
question  —  pointer  to  question  string 
default_ans  —  pointer  to  default_answer  string 
ans  —  pointer  to  answer  string 
bg,fg  —  background  and  foreground  colors 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

PushWindow(xl  ..) 

XYStr (x,y , str) 

Inputstring (str, . . ) 

PopWindowO 

RETURNS  :  the  user's  reply  as  a  pointer  to  it 
SIDE  EFFECTS  :  none 

- */ 

char  *Quest ion (char  *question,  char  *default_ans,  char  *ans,  BYTE 
bg,  BYTE  fg) 

{ 

unsigned  xl,  x2; 

BOOLEAN  vaiid_answer ; 

KeyList  EndKeys ; 

/*  draw  the  question  window  */ 

xl  =  40  -  (( (str len (question)  +  strlen(default_ans) )  +  4)  /  2); 
x2  =  80  -  xl; 

PushWindow(xl ,  10 ,  x2 , 14 ,  Single_S ingle, bg,  fg,bg,  fg,  "  Question  "  , 
True); 

XYStr (2,  2,  question); 

/*  set  valid  key  which  can  be  pressed  */ 
valid_answer  =  False; 

EndKeys. NUM  =  2; 

EndKeys.KEYS[l]  *  EscKey; 

EndKeys. KEYS[2]  =  CarriageReturn; 
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/*  while  valid  answer  not  obtained,  repeat  */ 
do 
{ 

strcpy(ans,  default_ans) ; 

Inputstring (  ans, 

strlen(default_ans) , 
2+strlen (question) +1, 

2,  BLACK,  YELLOW,  EndKeys) ; 

switch  (LastKey) 

{ 

case  CarriageReturn  : 

{ 

valid_answer  =  True; 
break; 

} 

case  EscKey  : 

{ 

valid_answer  =  True; 
strcpy(ans,  ”N'')  ; 
break; 

} 

} 

) 

while  ( lvalid_answer) ; 
strupr(ans) ; 

PopWindow() ;  /*  pop  question  window  */ 

return (ans) ; 
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DollarFormat 


/* 


PURPOSE  :  converts  a  given  string  into  the  dollar  format,  i.e. 

with  a  leading  *  $ ' ,  and  with  ' ,  '  for  every  three 
characters  starting  from  the  end  of  the  string  or  from 
the  character  in  it  (assumed  as  decimal  point) 
ASSUMES  :  nothing 
CALL  :  DollarFormat (str) ; 

INPUT  PARAMETERS  :  (char  *str) 

str  —  pointer  to  character  string  to  be 
converted 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

PosChar (str,ch, index) 

RETURNS  :  pointer  to  the  converted  string 
SIDE  EFFECTS  :  none 

- */ 

char  *DollarFormat (char  *str) 

{ 

unsigned  n  =  strlen(str) ; 

int  i  =  PosChar (str,  0);  /*  get  position  of  in 

str  */ 

/*  if  no  ' . ' ,  set  it  to  4rth  position  from  end  */ 
if  (i  -1) 
i  =  n-4; 

else 

i-=4  ; 

/*  insert  a  in  str,  every  fourth  position  */ 
for  (;  i  >  0;  i~=4) 
str[i]  =  ' , •  ; 

str[0]  =  /*  put  leading  */ 

return (str) ; 

} 
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/* - */ 

/* - */ 

/* - 

InitGet 

PURPOSE  :  a  variable  of  structure  GetHead  is  initialized 
ASSUMES  :  nothing 
CALL  :  InitGet (g) ; 


INPUT  PARAMETERS  :  (GetHead  *g) 

g  —  pointer  to  structure  of  type  GetHead 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- 

void  InitGet (struct  GetHead  *g) 

{ 

g->First  =  NULL; 
g->Last  =  NULL; 
g->EndKeys . NUM  =  3 ; 
g->EndKeys.KEYS[l]  =  EscKey; 
g->EndKeys . KEYS [ 2 ]  =  PgDn; 
g->EndKeys.KEYS[3]  =  PgUp; 
return; 

} 
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AddGet 


/* 


PURPOSE  :  adds  a  new  node  of  structure  GetField,  into  the  linked 
list  pointed  by  g  (which  is  a  structure  GetHead) .  All 
the  fields  in  the  new  node  are  appropriately 
initialized 

ASSUMES  :  g  is  initialized  by  InitGet 

CALL  :  AddGet(g,x,y,len,saystr,getstr, format, help, ignore) ; 

INPUT  PARAMETERS  :  (struct  GetHead  *g,  BYTE  x,  BYTE  y,  BYTE  len, 

char  *saystr,  char  *getstr,  InputType  format, 
BYTE  help,  BOOLEAN  ignore) 

FUNCTION  CALLS (  other  than  standard  functions  ) 

Repl icate ( str , ch , count ) 

RETURNS  :  nothing 
SIDE  EFFECTS  ;  none 

- */ 

void  AddGet ( struct  GetHead  *g,  BYTE  x,  BYTE  y,  BYTE  len,  char 
*saystr,  char  *getstr,  InputType  format,  BYTE  help,  BOOLEAN  ignore) 

{ 

struct  GetField  *newg; 

/*  allocate  mem  for  new  node  */ 

newg  =  (struct  GetField  *)  malloc (sizeof (struct  GetField)); 

newg“>Next  =  NULL; 

if  (g->First  =*  NULL) 

{ 

/*  if  this  is  the  first  node  in  the  linked  list  */ 
g->First  =  newg; 
g->Last  =  newg; 
newg->Prev  =  NULL; 

} 

else 

{ 

/*add  it  after  the  last  node  */ 
g->Last->Next  =  newg; 
newg->Prev  =  g->Last; 
g->Last  =  newg; 

) 
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/*  set  feild  values  in  new  node  */ 
newg->X  =  x; 
newg->Y  =  y; 
newg->Len  =  len; 
newg->Help  =  help; 
newg->Ignore  =  ignore; 
newg->Fonnat  =  format; 
newg->Validation  *  NULL; 
newg->Execute  =  NULL; 
newg->Buff  =  getstr; 

newg->WorkStr  =  (char  *)  inalloc(len+l) ; 
strcpy { newg->WorkStr ,  ' \0 ’ ) ; 

newg->SayStr  =  (char  *)  inailoc(strlen(saystr) +1)  ; 

strcpy (newg->SayStr,  saystr) ; 

newg->DuininyStr  =  (char  *)  malloc(len+l)  ; 

strcpy  ( newg->D\iininyStr ,  '  \0  ' )  ; 

newg->Mask  =  (char  *)  inalloc(len+l)  ; 

strcpy (newg->Mask,  ' \0 ' ) ; 

/*  set  the  Mask  field  based  on  the  format  value  */ 

switch  (format) 

{ 

case  AlphaNumeric: 
case  Numeric: 

{ 

newg->Mask  =  (char  *)  Replicate (newg->Mask,  ' 
break; 

} 

case  Numeric_Decimal : 

{ 

newg->Mask  =  (char  *)  Replicate (newg->Mask,  ' 

newg->Mask[len-3]  = 

break; 

} 

case  Percent_Decimal : 

{ 

newg->Mask  *  (char  *)  Replicate (newg->Mask,  ' 
newg->Mask[len-l]  = 
newg->Mask[len-3 ]  = 
break ; 

) 


' ,  len) ; 


* ,  len) ; 


' ,  len) ; 
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case  Percent: 

{ 

newg->Mask  =  (char  *)  Replicate (newg->Mask,  ' 
newg->Mask[len-l]  =  •%'; 
break ; 

) 

case  Dollar: 

{ 

newg->Mask  =  (char  *)  Replicate (newg->Mask,  ' 

DollarFormat (newg->Mask) ; 

break; 


case  Dollar_Cents: 

{ 

newg->Mask  =  (char  *)  Replicate (newg->Mask,  ' 
newg->Mask[len-3]  = 

DollarFormat (newg->Mask) ; 
break ; 

} 

case  Date: 

{ 

strcpy (newg->Mask,  " _ / _ / _ \0'')  ; 

break ; 

} 

case  TimeCode: 

{ 

newg->Mask  =  (char*)  Replicate (newg->Mask,  ' 

newg-‘>Mask[2  ]  = 

newg->Mask[5]  = 

newg->Mask[8 ]  = 

break; 

} 

) 

> 


' ,  len) ; 


' ,  len) ; 


'  ,  len) ; 


' ,  len) ; 
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Formatstring 


/* 


PURPOSE  :  changes  the  contents  of  the  field  DummyStr  in  the 

structure  GetField,  based  on  the  field  Format  in  it 
ASSUMES  :  input  structure  has  been  initialized 
CALL  ;  Formatstring (gptr) ; 

INPUT  PARAMETERS  ;  (struct  GetField  *gptr) 

struct  GetField  *gptr  —  pointer  to  structure 
GetField 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

PosS tr ( str , ch , pos ) 

PadRight ( s t r , count ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  Formatstring (struct  GetField  *gptr) 

( 

int  i  ; 
int  bufflen; 
int  buffdecpos; 
int  maskdecpos; 
char  *tempstr; 

/*  copy  Mask  into  DummyStr  */ 

strcpy ( gptr->DummyStr ,  gptr->Mask) ; 

/*  replace  in  DummyStr  by  '  '  */ 

for  (i=0;  i  <  strlen(gptr->DummyStr) ;  i++) 
if  (gptr->DuromyStr [ i]  ==  '_') 
gptr->DummyStr[i]  =  ’ 

buffdecpos  =  PosChar (gptr->Buff ,  0);  /*  get  index  of  ' . ' 

in  Buff*/ 

bufflen  =  strlen(gptr->Buff) -1; 

maskdecpos  =  PosChar (gptr->DummyStr,  0); 

if  (maskdecpos  ==  -1) 

maskdecpos  =  strlen (gptr->DummyStr) -1 ; 


I 
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/*  if  Format  is  AlphaNumeric,  copy  Buff  into  DuminyStr,  from 
maskdecpos*/ 

if  ( (buf fdecpos  !=  -1)  &&  (gptr->Format  !=  AlphaNumeric) ) 

{ 

maskdecpos  =  PosChar (gptr->DummyStr,  0)  +  1; 

for  (i  =  buf fdecpos+1;  i  <=  bufflen;  i++) 

{ 

gptr“>DvuimyStr[ maskdecpos]  =  gptr->Buff  [i]  ; 
maskdecpos++ ; 

} 

bufflen  =  buf fdecpos  -  1; 

maskdecpos  =  PosChar (gptr->DummyStr,  0)  -  1; 


/*if  Format  is  AlphaNumeric  or  Date,  copy  Buff  into  tempStr, 
pad  trailing  blanks,  copy  it  back  into  DummyStr*/ 

if  (gptr->Format  ==  AlphaNumeric  [ [  gptr->Format  ==  Date) 

{ 


tempstr  =  (char  *)  malloc{gptr->Len  +  1) ; 
strcpy (tempstr,  gptr->Buff) ; 
tempstr  =  (char  *) 

PadRight ( tempstr,  strlen ( gptr->DummyS tr ) 
strlen(gptr->Buf f) ) ; 

strcpy (gptr->DummyStr,  tempstr) ; 
free (tempstr) ; 

if  (gptr->Format  ==  Date) 

{ 

gptr->DummyStr  [2  ]  =  '/'»* 
gptr->DummyStr[5]  =  */*> 

) 


} 

else 

for  (i  =  bufflen;  i  >=  0;  i — ) 

( 

if  (gptr->DummyStr [maskdecpos]  !=  '  *) 
do 

maskdecpos — ; 

while  (gptr->DummyStr [maskdecpos]  1=  •  '); 

gptr->DummyStr [maskdecpos]  =  gptr->Buf f [ i] ; 
maskdecpos — ; 

) 

return ; 
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DisplayGets 


/* 


PURPOSE  ;  displays  the  contents  of  the  field  SayStr, DuiomyStr  in 
the  structure  GetField,  based  on  the  field  Format  in 
it.  This  is  done  for  all  such  nodes  in  the  linked  list 
pointed  by  the  head  g  (struct  GetHead) 

ASSUMES  :  input  structure  has  been  initialized 

CALL  :  DisplayGets (g) ; 

INPUT  PARAMETERS  :  (struct  GetHead  *g) 

struct  GetHead  *g  —  pointer  to  structure 
GetHead 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

Attr (bg, fg) 

XYStr(x,y,str) 

PadRight ( str, count) 

Formatstring ( gptr ) 

RETURNS  :  nothing 

SIDE  EFFECTS  :  none 

- */ 


void  DisplayGets (struct  GetHead  g) 

{ 

struct  GetField  *lcptr; 
int  saylen; 

Icptr  =  g. First;  /*  start  at  first  node  */ 

/*  repeat  while  last  node  is  not  reached  */ 
while  (Icptr  !=  NULL) 

{ 

Attr (BLUE,  WHITE) ;  /*  set  attributes  */ 

XYStr (lcptr->X,  lcptr->Y,  lcptr->SayStr) ;  /*  display 

SayStr  */ 

saylen  =  strlen(lcptr->SayStr)+l; 

if  (lcptr->Ignore)  /*  if  Ignore  is  on,  change  attributes  */ 
Attr (BLACK,  LIGHTGRAY) ; 

else 

Attr (BLACK,  YELLOW); 

strcpy (lcptr->DummyStr,  lcptr->Buff) ;  /*  copy  Buff  into 

DummyStr  */ 

/*  if  Format  is  AlphaNumeric, 

pad  DummyStr  with  trailing  blanks  display  it  */ 
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switch  (lcptr->Fonnat) 
{ 

case  AlphaNumeric: 


XYStr(lcptr->X  +  saylen,  lcptr->Y, 
PadRight  (lcptr->DuinmyStr,  lcptr->Len) ) 
break ; 


) 


} 


default: 

{ 

Formatstring (Icptr) ; 

XYStr (lcptr->X  +  saylen,  lcptr->Y, 
PadRight  (lcptr->DuininyStr,  lcptr->Len)  )  ; 
break; 

} 


Icptr  =  lcptr->Next;  /*  go  to  the  next  node  in  linked 

list  */ 


return ; 

) 


/* 


ClearLine 


PURPOSE  :  copies  Mask  field  into  DummyStr  field,  replaces  all 

in  it  by  '  ' ,  displays  it  and  copies  in  into  WorkStr 
field 

ASSUMES  ;  input  stiructure  has  been  initialized 
CALL  :  ClearLine (Icptr) ; 

INPUT  PARAMETERS  :  (struct  GetField  *lcptr) 

struct  GetField  *lcptr  —  pointer  to  structure 
GetField 

FUNCTION  CALLS (  Other  than  standard  functions  )  ; 

XYStr (x,y,str) 

RETURNS  ;  nothing 
SID^  EFFECTS  :  none 

- */ 

void  ClearLine f struct  GetField  *lcptr) 

{ 

int  i; 


/*  copy  Mask  into  DummyStr  */ 
strcpy  (lcptr->DujnmyStr,  Icptr- >Mask)  ; 

/*  replace  by  '  '  */ 

for  (i  =  0;  i  <  strlen(lcptr->DummyStr) ;  i++) 
if  (lcptr->DummyStr [ i]  == 
lcptr->DummyStr[i]  =  ' 
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/*  display  it  */ 


XYStr ( lcptr->X+str len (lcptr->SayStr)+l,  lcptr->Y, 

lcptr->DuiiunyStr)  ; 

/*  copy  DunmyStr  into  WorkStr  */ 

strcpy (lcptr->WorkStr ,  lcptr->DummyStr) ; 

return ; 

) 
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DeleteChar 


/* 


PURPOSE  :  deletes  a  specified  number  of  characters  from  a  string, 
at  a  specified  position  in  it,  based  on  the  value  of 
form(InputType) . 

ASSUMES  :  nothing 

CALL  :  DeleteChar  (char  *buff,  int  p,  BYTE  len,  InputType 

form) ; 

INPUT  PARAMETERS  :  char  *buff,  int  p,  BYTE  len,  InputType  form 

buff  —  pointer  to  string 
p  —  index  where  to  delete 
len  -  how  much  to  delete 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

Delete (str, count,  index) 

PosChar (str,char, index) 

Insert (str, substr, index) 

RETURNS  :  nothing 
SIDE  EFFECTS  ;  none 

- - 

void  DeleteChar (char  *buff,  int  p,  BYTE  len,  InputType  form) 

{ 

int  decpos; 

if  (p  <  0)  /*  invalid  index,  do  nothing  */ 

return ; 

/*  based  on  the  value  of  form,  take  the  appropriate  action  */ 
switch  (form) 

{ 

case  Percent: 

( 

Delete(buff,  p,  l) ; 

Insert(buff,  ”  ”,  len-2) ; 
break; 

) 

case  Dollar_Cents: 

{ 

if  (p  ==  0) 
return ; 

} 
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case  Nuineric_Decimal : 
case  Percent_Deciinal ; 

{ 

Delete (buff,  p,  1) ; 

decpos  =  PosChar (buff ,  0) ; 

if  (p  <=  decpos) 

{ 

if  (form  ==  Dollar_Cents) 
Insert (buff,  ”  ”,  1) ; 

else 

Insert (buff,  "  ”,  0) ; 

} 

if  (p  >  decpos) 

{ 

if  (form  ==  Percent_Decimal) 
Insert (buff,  "  ”,  len-2) ; 

else 

Insert(buff,  ”  ”,  len-1) ; 

} 

break; 

} 

case  Date: 

{ 

Delete (buff,  p,  1) ; 

if  ((p  ==  1)  I [  (p  ==  4)  j  I  (p  == 
Insert(buff,  ”  ”,  p) ; 

else 

Insert(buff,  ”  ”,  p+1) ; 
break; 

} 

default; 

{ 

Delete(buff,  p,  1); 
strcat(buff,  ”  ")  ; 
break; 

) 


return ; 

) 


7)) 
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/* 


AddChar 


PURPOSE  :  deletes  a  specified  number  of  characters  from  a  string, 
at  a  specified  position  in  it,  based  on  the  value  of 
form  (Input Type)  and  inserts  a  given  char  in  it  after 
the  deletion 
ASSUMES  :  nothing 

CALL  :  AddChar (char  *buff,  BYTE  ch,int  p,  InputType  form); 

INPUT  PARAMETERS  :  char  *buff,  int  p,  BYTE  ch,  InputType  form 

buff  —  pointer  to  string 
p  —  index  where  to  delete 
ch  —  character  to  insert 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Delete (str, count,  index) 

PosChar (str, char, index) 

Insert (str, substr, index) 

RETURNS  ;  False  if  form  is  not  AlphaNumeric  or  if  ch  is  not  a 
digit  or  is  not  a  ' . ' ,  else  return  True 
SIDE  EFFECTS  :  none 


*/ 


BOOLEAN  AddChar (char  *buff,  BYTE  ch,  int  p,  InputType  form) 

{ 

int  decpos ; 
char  *dummy; 

/*  form  is  not  AlphaNumeric/  ch  not  a  digit  nor  a 
if  ((fora  1=  AlphaNumeric)  &&  (((ch  <  48)  j  j  (ch  >  57))  &&  (ch 
1=  46))) 

return (False) ; 

if  (IlnsertOn)  /*  Insert  key  is  released?  */ 

buff[p]  =  ch;  //  Flipped  else/if 

else 

{ 

if  (p  >  strlen(buff ) -1) 
buff[p]  =  ch; 

else 

{ 

dummy  =  (char  *)  malloc(2) ; 

dummy [ 0 ]  =  ch ; 

dummy [1]  =  '\0’; 

decpos  =  PosChar (buff ,  0) ; 
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if 

{ 


(decpos  ==  -1) 


if 

{ 


(form  ==  Date) 

switch  (p) 

{ 

case  0: 
case  1: 

{ 

Delete (buff,  1,  1)  ; 
Insert (buff,  dummy, 
break; 

} 


1)  ? 


case  3: 
case  4: 

{ 

Delete(buff,  4,  1); 
Insert (buff,  dummy,  4) ; 
break; 

} 


} 

} 

else 


case  6: 
case  7: 

{ 

Delete (buff,  7,  1) ; 
Insert (buff,  dummy, 
break; 

) 


} 

else 


Delete (buff,  strlen (buf f ) -1 
Insert(buff,  dummy,  p) ; 


7)  ; 


1) 
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{ 

if  (p  >  decpos) 

{ 

if  ((form  ==  Percent)  |j  (form 
Percent_Decimal) ) 

{ 

Delete(buff,  strlen(buf f ) -2 ,  1); 
Insert (buff ,  dummy,  p) ; 

} 

else 

{ 

Delete(buff,  strlen(buff ) -1,  1) ; 
Insert (buff,  dummy,  p) ; 

) 

} 

else 

{ 

Delete (buff,  decpos-1,  1)  ; 

Insert (buff,  dummy,  p) ; 

} 

} 

free (dummy) ; 

) 

} 

return (True) ; 

} 
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TextChar 


/* 


PURPOSE  :  deletes  a  specified  number  of  characters  from  the 

WorkStr  field  and  Inserts  DummyStr  into  it  based  on 
Format  field,  and  whether  value  at  input  variable  p  is 
greater  than  or  less  than  index  of  decimal  point  in  the 
WorkStr. 

ASSUMES  :  nothing 

CALL  :  TextChar (*lcptr,  ch,  *p,  *ClearFlag) 

INPUT  PARAMETERS  :  (struct  GetField  *lcptr,  int  ch,  int  *p,  BOOLEAN 
*ClearFlag) 

*lcptr  —  pointer  to  struct  GetField 
*P  —  pointer  to  index  where  to  delete 
ch  —  character  to  insert 
FUNCTION  CALIiS  (  other  than  standard  functions  )  : 

ClearLine ( Icptr ) 

Delete (str, count,  index) 

PosChar (str,char, index) 

Insert (str, substr, index) 

Replicate (str, ch, count) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  TextChar ( struct  GetField  *lcptr,  int  ch,  int  *p,  BOOLEAN 
*ClearFlag) 

{ 

int  decpos ; 

if  (*ClearFlag)  /*  ClearFlag  is  on  */ 

{ 

ClearLine (Icptr) ; 

♦ClearFlag  =  False; 

} 

if  (ch  =*  • . •) 

{ 

if  ( (lcptr->Forniat  ==  Percent_Decimal)  jj 
(lcptr-'>Forniat  ==  Dollar_Cents)  |  [ 

(lcptr->Format  ==  Numeric_Deciroal) ) 

{ 

/*  Format  could  be 

Percent_decimal , 

Dollar_cents, 

Numeric_Decimal  */ 

decpos  =  PosChar (lcptr->Mask,  ' .  ' ,  0)  ;  /*  get  position 

of  •  .  '  */ 
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if  (*p  <  decpos) 

{ 

Delete (lcptr->WorkStr,  *p,  decpos-*p) ; 

if  (lcptr-> Format  ==  Dollar_Cents) 

Insert  (  lcptr->Wor]cStr, 

Replicate ( lcptr->DummyStr , 

'  ' ,  decpos  -  *p) ,  1) ; 

else 

Insert (  lcptr->WorkStr , 

Replicate ( lcptr->DummyStr , 

'  *,  decpos  -  *p) ,  0); 

) 

*p  =  decpos  +  1; 
return ; 

} 

else 

if  (lcptr->Format  !=  AlphaNumeric) 
return ; 

} 

if  (AddChar (lcptr->WorkStr,  ch,  *p,  lcptr->Fonnat) ) 

{ 

do 

(*p)++; 

While  ( (lcptr->MaskC*p3  1=  '_•)  &&  (*p  <  lcptr->Len) ) ; 

if  (*p  <  lcptr->Len) 
return; 


do 

(*p)— ; 

while  ( (lcptr->Mask[*p]  1=  &&  (*p  >  -1) ) ; 

) 

} 
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/* - 

PURPOSE 


Backs pa ceCha  r 

deletes  a  specified  number  of  characters  from  the 
WorkStr  field  and  Inserts  DummyStr  into  it  based  on 
Format  field,  and  whether  value  at  input  variable  p  is 
greater  than  or  less  than  index  of  decimal  point  in  the 
WorkStr. 

ASSUMES  :  nothing 

CALL  ;  BackSpaceChar (*lcptr,  ch,  *p,  *ClearFlag) 

INPUT  PARAMETERS  :  (struct  GetField  *lcptr,  int  *p,  BOOLEAN 
*ClearFlag) 

*lcptr  —  pointer  to  struct  GetField 
*P  —  pointer  to  index  where  to  delete 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Delete (str, count,  index) 

PosChar ( str , char , index) 

Insert (str,substr, index) 

Repl icate ( str , ch , count ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  BackSpaceChar (struct  GetField  *lcptr,  int  *p,  BOOLEAN 
*ClearFlag) 

{ 

int  decpos; 

if  ( (lcptr->Format  *=  Percent__Decimal)  }! 

(lcptr->Format  ==  Dollar_Cents)  { | 

(lcptr->Forraat  *=  Numeric_Decimal) ) 

( 

/*  Format  could  be  Percent_decimal ,  Dollar_cents, 
Numeric_Decimal  */ 

decpos  =  PosChar (lcptr->WorkStr,  0); 

if  (*p  <  decpos) 

{ 

*ClearFlag  =  False; 

DeleteChar (lcptr->WorkStr,  (*p)-l,  lcptr->Len, 
lcptr->Format) ; 

) 

else 

{ 

do 

(*p)  — ; 

while  ( (lcptr->Mask[*p]  !=  '_')  &&  (*p  <  lcptr->Len) )  ; 

if  (*p  !=  -1) 

{ 

*ClearFlag  =  False; 

DeleteChar (lcptr->WorkStr,  *p,  lcptr->Len, 
Icptr-^Format) ; 

) 

} 

} 

else 
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if  (*p  !=  0) 

I 

do 

(*P)  —  • 

while  ( (lcptr->Mask[*p]  !=  &&  (*P  <  lcptr->Len) ) ; 

if  (*p  1=  -1) 

♦ClearFlag  =  False; 

DeleteChar(lcptr~>WorkStr,  *p,  lcptr->Len, 
lcptr“>Fonnat)  ; 

} 

) 

return ; 
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/* 


CleanNumberForDisplay 

PURPOSE  :  cleans  up  an  a  given  string  removing  unwanted 

characters,  based  on  the  value  of  the  given  format.  The 
string  is  made  ready  for  display. 

ASSUMES  :  nothing 

CALL  :  CleanNumberForDisplay (*buff,  form) 

INPUT  PARAMETERS  :  (char  *buff,  InputType  form) 

*buff  —  ptr  to  string  to  be  cleaned 
form  —  based  on  which  buff  is  to  be  cleaned 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Delete (str, count ,  index) 

LTrim(str) 

RTrim(str) 

Insert (str, substr, index) 


RETURNS  :  nothing 
SIDE  EFFECTS  :  none 


*/ 


void  CleanNumberForDisplay (char  *buff,  InputType  form) 

{ 

BYTE  len; 
int  i  ; 

char  dummy [ 3 ] ; 

if  (form  *=  Date) 

{ 

/*  form  is  Date  */ 

/*  copy  first  two  chars  from  buff  */ 
strncpy (&dummy[0] ,  buff,  2); 
dummy [2]  =  '\0'; 

/*  trim  dummy  from  both  sides;  if  only  one  char  left,  add 
a  leading  0  */ 

/*  do  this  for  month,  day,  year  and  return  */ 

if  (strlen (LTrim(RTrim (dummy) ) )  ==  1) 

{ 

buff[0]  *  'O'; 
buff[l]  ®  dummy [0]; 

} 

strncpy ( Sdummy [ 0 ] ,  buff +3,  2); 
dummy [ 2 ]  =  ' \0 ' ; 

if  (strlen(LTrim(RTrim(dummy) ) )  ==  1) 

{ 

buff [3]  =  'O'; 
buff [4]  =  dummy [0]; 

) 
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strncpy (&duininy[0] ,  buff+6,  2)  ; 
dummy [ 2 ]  =  ' \0 ' ; 


if  ( strlen(LTrim(RTrim (dummy) ) )  ==  1) 
{ 

buff  [6]  =  'OS- 
buff  [7]  =  dummy [0]; 


return ; 

) 

/*  form  is  not  Date  */ 


i  =  0; 

len  =  strlen(buff) ; 

/*  search  for  an  integer  */ 


while  ( ! isdigit (buff [i] )  &&  i  <  len) 
i++; 

i++ ; 

/*  search  for 

while  ((i  <  len)  &&  (buff[i]  !=  '.')) 

{ 

if  (buff[i]  »=  «  •) 

{ 

/*  if  char  is  a  '  ' ,  remove  it  */ 

Delete(buff ,  i,  l) ; 

/*  if  form  is  Dollar  or  Dollar_cents,  insert  a  blank  at 
pos  1  */ 

if  ((form  ==  Dollar)  }{  (form  ==  Dollar_Cents) ) 
Insert(buff,  "  ",  1) ; 

else 

Insert  (buff,  "  0);  /*  else  insert  blank  at  pos 


return ; 

} 
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CleanEntry 


/* 


PURPOSE  :  cleans  the  WorkStr  field  of  the  input  parameter  based 
on  the  Format  type.  The  leading  and  trailing  blanks  are 
removed,  leading  zeros  are  removed  and  so  on. 

ASSUMES  :  nothing 

CALL  :  Cleanentry (*lcptr) 

INPUT  PARAMETERS  ;  (struct  GetField  *lcptr) 

*lcptr  —  pointer  to  struct  GetField 
FUNCTION  CALLS (  other  than  standard  functions  )  : 

Delete (str, count,  index) 

RTrim(str) 

LTrim(str) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 


void  CleanEntry (struct  GetField  *lcptr) 

{ 

/*  if  WorkStr  is  empty,  return  */ 
if  {strcmp(lcptr->WorkStr,  ==  0) 

return ; 

/*  based  on  Format  ,  clean  it  */ 
switch  (lcptr->Format) 

{ 

case  Numeric; 
case  AlphaNumeric; 

{ 

lcptr->WorkStr  =  (char*)  RTrira(LTrim(lcptr-*>WorkStr) )  ; 
break; 

} 

case  Dollar: 
case  Dollar_Cents; 

{ 

Delete (lcptr->WorkStr,  0,  1)  ; 

lcptr->WorkStr  =  (char  *)  RTrim(lcptr->WorkStr) ; 

if  (lcptr->WorkStr(strlen(lcptr->WorkStr) -1]  ==  '.') 
Delete (lcptr->WorkStr,  strlen(lcptr->WorkStr) -1,  1) ; 

lcptr->WorkStr  =  (char  *)  LTrim(lcptr~>WorkStr) ; 
break ; 

) 
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case  Nuineric_Decimal: 

{ 

lcptr->WorkStr  =  (char  *)  RTriin(lcptr->WorlcStr)  ; 

if  (lcptr->WorkStr[strlen(lcptr->WorkStr) ]  ==  '•') 
Delete ( lcptr->WorkStr ,  strlen ( lcptr->WorkStr) -1,  1) ; 

lcptr->WorkStr  =  (char  *)  LTrim(lcptr->WorkStr) ; 
break; 

} 

case  Percent: 

case  Percent_Deciinal : 

{ 

Delete (lcptr->WorkStr,  strlen ( lcptr->WorkStr) -1,  1); 
lcptr->WorkStr  =  (char  *)  RTriin(lcptr->WorkStr)  ; 

if  ( lcptr->WorkStr [strlen (lcptr->WorkStr) -1]  == 

Delete (lcptr->WorkStr,  strlen (lcptr->WorkStr) -1,  1)  ; 

lcptr->WorkStr  =  (char  *)  LTrim(lcptr->WorkStr) ; 
break; 

} 

} 

strcpy (lcptr->Buff ,  Icptr '>WorkStr)  ; 
return ; 

) 

/* - 

UpDateLcptr 

PURPOSE  :  updates  a  node  in  the  list  pointed  to  by  Lcptr,  based 
on  value  of  LastKey 
ASSUMES  :  nothing 
CALL  ;  UpDateLcptr (*lcptr) 

INPUT  PARAMETERS  ;  (struct  GetField  *lcptr) 

♦lcptr  —  pointer  to  struct  GetField 
FUNCTION  CALLS (  Other  than  standard  functions  )  :none 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

struct  GetField  *UpdateLcptr (struct  GetField  *lcptr) 

{ 

BOOLEAN  flag; 
flag  =  False; 
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while  (Iflag) 

( 

if  ((LastKey  ==  UpArrow)  j}  (LastKey  ==  ShiftTabKey) ) 
{ 

do 

{ 

if  (lcptr->Prev  !=  NULL) 

{ 

Icptr  =  lcptr->Prev; 
if  ( ! lcptr->Ignore) 
flag  =  True; 

} 

else 

if  ( ! lcptr->Ignore) 
flag  =  True; 

LastKey  =  NullKey; 

) 

while  ( (lcptr->Prev  !=  NULL)  &&  (!flag)); 

) 

else 

{ 

do 

{ 

if  (lcptr->Next  1=  NULL) 

{ 

Icptr  =  lcptr~>Next; 

if  ( ! lcptr->Ignore) 
return (Icptr) ; 

) 

else 

if  (LastKey  ==  CarriageReturn) 
return (NULL) ; 

else 

if  ( (lcptr“>Next  ==  NULL)  &&  (lcptr->Ignore) ) 
LastKey  =  UpArrow; 

else 

return ( Icptr)  ; 

) 

while  ( (lcptr->Next  ]=  NULL)  &&  (Iflag)); 

} 

) 

return (Icptr) ; 
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ASSUMES  :  nothing 
CALL  :  Get(g) 

INPUT  PARAMETERS  :  (struct  GetHead  g) 

g  —  variable  of  type  struct  GetField 
FUNCTION  CALLS (  other  than  standard  functions  )  ; 

SaveCursorStatus 
DisplayGets (g) 

CursorSmall ( ) 

CursorBigO 
CursorOff () 

UpDateLcptr ( Icptr ) 

Attr (bg, fg) 

FormatString ( Icptr) 

XYStr(str,x,y) 

CleanEntry ( Icptr) 

RestoreCursorStatus ( ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  Get (struct  GetHead  g) 

{ 

BOOLEAN  EndEditFlag; 

BOOLEAN  ExitGetFlag; 

BOOLEAN  ClearFlag; 

struct  GetField  *lcptr; 

int  saylen,  p; 

BYTE  ch; 

SaveCursorStatus ( ) ; 

DisplayGets (g) ; 

Icptr  =  g. First; 

CursorSmall ( ) ; 

ExitGetFlag  =  False; 

Last Key  =  DownArrow; 

if  (lcptr->Ignore) 

Icptr  =  UpdateLcptr (Icptr) ; 
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do 

{ 

Attr (BLACK,  YELLOW); 

if  (strcmp  (lcptr->WorkStr,  ''\0")  ==  0) 

{ 

strcpy  (lcptr->Wor)cStr,  lcptr->Buff)  ; 
strcpy  (lcptr->DuiiunyStr,  lcptr->Mask)  ; 
FonnatString(lcptr) ; 

strcpy  (lcptr->WorkStr,  lcptr->DnininyStr)  ; 

) 

p  =  0; 

while  (lcptr->Mask[p]  != 

P++; 

EndEditFlag  =  False; 

ClearFlag  =  True; 

saylen  =  strlen(lcptr->SayStr)  +  1; 

do 

{ 

Attr( BLACK,  YELLOW); 

XYStr  (lcptr->X  +  saylen,  Icptr-'v.  V::ptr->WorkStr)  ; 
gotoxy (lcptr->X  +  saylen  +  p,  lcptr->Y) ; 

if  (InsertOn) 

CursorBigO  ; 

else 

CursorSinall  ()  ; 

ch  =  InKey ( )  ; 

CursorOf f ( ) ; 

switch  (LastKey) 

{ 

case  TextKey: 
case  NumberKey; 

{ 

TextChar (Icptr,  ch,  &p,  &ClearFlag) ; 
break; 

) 

case  InsKey: 

{ 

ClearFlag  =  False; 

InsertOn  =  ! InsertOn; 
break; 

) 
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case  BackSpaceKey; 

{ 

BackSpaceChar (Icptr,  &p,  SClearFlag) ; 
break; 

} 

case  DelKey: 

{ 

ClearFlag  =  False; 

DeleteChar(lcptr->WorkStr,  p,  lcptr->Len, 
lcptr->Format) ; 
break; 

} 

case  RightArrow: 

{ 

ClearFlag  =  False; 
do 

P++; 

while  ( (lcptr->Mask[p]  !=  &&  (p  < 

lcptr->Len) ) ; 

if  (p  <  lcptr->Len) 
break; 

} 

case  LeftArrow; 

{ 

if  (p  >  -1) 
do 

p— ; 

while  { (lcptr->Mask[p]  !=  &&  (p  >  -1)); 

break; 

) 

case  HomeKey: 

( 

p  =  0; 

while  (lcptr->Mask[p]  != 

P++; 

break; 

} 
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case  EndKey: 

{ 

p  *  lcptr->Len-l ; 
while  (lcptr->Mask[p]  1= 

p— ; 

break; 

} 

case  ShiftTabKey: 
case  UpArrow: 

{ 

if  (lcptr->Fonnat  1«=  AlphaNumeric) 

{ 

CleanNumberForDisplay (lcptr->WorkStr , 
lcptr->Fonnat)  ; 

XYStr (lcptr->X+saylen,  lcptr->Y, 
lcptr->WorkStr) ; 

) 

Icptr  =  UpdateLcptr (Icptr) ; 

EndEditFlag  =  True? 
break ; 

} 

case  TabKey; 
case  DownArrow: 

{ 

if  (lcptr*->Fomat  !=  AlphaNuneric) 

{ 

CleanNumberForDisplay ( lcptr->WorkStr , 
lcptr->Format) ; 

XYStr (lcptr->X+saylen,  lcptr->Y, 

lcptr->WorkStr) ; 

} 

if  (lcptr->Validation  ? 

(*(lcptr->Validation) ) Clcptr->WorkStr)  :  1) 

{ 

Icptr  =*  UpdateLcptr  (Icptr)  ? 

EndEditFlag  *  True; 

) 

break  ? 

) 

case  EscKey: 

( 

ExitGetFlag  =  True; 
break; 

) 


I 
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case  CarriageReturn: 

{ 

if  (lcptr->Format  !=  AlphaNumeric) 

{ 

CleanNumberForDisplay ( lcptr->WorkStr , 
lcptr->Fonnat)  ; 

XYStr (lcptr->X+saylen,  lcptr->Y, 

lcptr->WorkStr) ; 

} 

if  (lcptr->Validation  ? 

(* (lcptr->Validation) ) (lcptr->WorkStr)  :  1) 

{ 

EndEditFlag  =  True; 

if  (lcptr->Execute) 

(* (lcptr->Execute) ) () ; 

if  ((Icptr  =  UpdateLcptr (Icptr) )  ==  NULL) 
ExitGetFlag  =  True; 

} 

break ; 

} 

} 

if  (Icptr  !=  NULL) 

{ 

if  (  (p  «=  lcptr->Len  -  1)  && 

{ (lcptr->Forniat  ==  Percent)  |j 
(lcptr->Fonnat  ==  Percent_Deciinal) ) ) 

p— ; 

else 

if  (p  ==  lcptr->Len) 

p  =  lcptr->Len  -  1; 

if  (p  ==  -1) 

if  (lcptr->Fonnat  ==  Dollar  [  j  lcptr->Fonnat  == 
Dollar_Cents) 
p  =  1; 

else 

p  =  0; 

) 

) 

while  ((!  EndEditFlag)  &&  (!  ExitGetFlag)  && 

( 1 CheckKeyList (g . EndKeys) ) ) ; 

) 

while  ( ( lExitGetFlag)  &&  (! CheckKeyList (g. EndKeys) )) ; 
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if  (LastKey  !*  EscKey) 

{ 

Icptr  =  g. First; 

while  (Icptr  !=  NULL) 

{ 

CleanEntry (Icptr) ; 
Icptr  =  lcptr->Next 

} 

> 

RestoreCursorStatus ( ) ; 
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FreeGets 


/* 


PURPOSE  :  frees  memory  taken  up  by  the  linked  list  pointed  by  g 
(struct  GetHead)  —  each  node  is  of  type  GetField 
ASSUMES  :  list  has  been  created  earlier 
CALL  :  FreeGets (g) 

INPUT  PARAMETERS  :  (struct  GetHead  g) 

*g  —  pointer  to  struct  GetHead 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 


void  FreeGets (struct  GetHead  g) 

{ 

struct  GetField  *lcptr; 

Icptr  =  g. First;  /*  start  at  the  head  of  the  list  */ 

/*  while  list  end  not  reached,  free  each  node  */ 

while  (lcptr->Next  1=  NULL) 

{ 

g. First  =  g. First->Next; 
free(lcptr“>WorkStr) ; 
free (lcptr->Mask) ? 
free(lcptr->SayStr) ; 
free(lcptr->DummyStr) ; 
free (Icptr) ; 

Icptr  =  g. First; 


return; 

> 
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ErrorMessage 


/* 


PURPOSE  :  prints  an  error  message  in  a  window 

ASSUMES  :  nothing 

CALL  :  ErrorMessage (*str) 

INPUT  PARAMETERS  :  (Char  *str) 

*str  —  pointer  to  string  to  be  displayed 
FUNCTION  CALLS (  Other  than  standard  functions  )  : 

ExplodeWindow(xl, . ) 

CursorOff () 

CenterText ( row  , str ) 

PopWindow( ) 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

- */ 

void  ErrorMessage (char  *str) 

{ 

/*  draw  a  slowly  expanding  window,  with  error  message  heading 

*/ 

ExplodeWindow(  2,9,77,14, 

Single_S ingle, 

RED,  YELLOW,  RED,  YELLOW, 

"  Error  ",  True) ; 

CursorOff 0 ;  /*  turn  cursor  off  */ 

CenterText (2 ,  str) ;  /*  display  actual  message  */ 

CenterText ( 3 ,  "Press  any  key  to  continue."); 
getch ( ) ; 

PopWindow( ) ;  /*  pop  the  window  off  the  screen  */ 

} 

/**  End  of  File  **/ 
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5.0  Intersim.c 


Prograat  cover  sheet 

Program  name  ; INTERSIM.C  Latest  Version:  1.0  Date:  08/30/91 

Languages:  C  Manufacturer:  Microsoft  Version  :  6.0 

Description: 

The  program  is  the  user  interface  part  for  the  intersimulator 
delay  study  software.  The  header  file  Delay,  h  is  included  with  it. 
It  is  executed  by  typing  intersim  <integer>  at  the  DOS  prompt.  If 
<integer>  is  0  or  99,  it  indicates  that  the  packets  to  both  ASATs 
will  be  delayed.  If  the  <integer>  is  1,  then  packets  to  ASATl  only 
will  be  delayed,  else  if  <integer>  is  2,  then  packets  to  ASAT2  only 
will  be  delayed.  If  the  <integer>  is  missing,  then  it  is  assumed 
to  be  0.  The  program  gives  the  user  a  starting  trial  number  and 
then  reads  the  desired  delay  values  and  trial  duration.  The  ASATs 
are  started  up  and  the  program  spawns  a  child  process  to  verify 
this.  Another  child  process  is  then  spawned,  which  takes  care  of 
collecting  and  delaying  the  network  packets.  Control  returns  to 
the  program  after  all  the  trial  results  have  been  saved  and  the 
trial  is  complete  (i.e.,  either  /  both  ASATs  have  crashed  or  trial 
time  is  completed  or  a  user  generated  interrupt  has  been  received) . 
The  program  is  error  proof  for  the  following  user  errors: 

a)  user  responses  for  a  y/n  are  checked. 

b)  delay  values  are  predetermined  to  be  0,  250,  500,  750 
milliseconds.  Any  other  delay  value  will  not  be  accepted. 

c)  trial  duration  is  limited  to  30  minutes  (except  0)  .  Out  of 
range  values  will  not  be  accepted. 

The  program  will  not  crash  under  such  user  errors,  and  under  normal 
running  condition  of  the  ASATs .  In  the  event  that  the  ASATs  cannot 
be  started  up,  the  program  allows  the  user  to  exit  gracefully. 
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/***************************************************************** 


*  Module 

*  Programmer 

*  Purpose 

* 

* 

* 

*  Compilation 

* 

*  Usage 

* 

* 

* 

* 

* 

* 

*  Other  Info 

* 

it 


:  inter sim.c  * 

:  Sandhya  Chandarlapaty  * 

:  This  module  provides  a  graphic  user  interface  * 
for  the  Intersimulator  delay  study  conducted  * 
in  the  Aviation  Trainer  Research  Laboratory  on  * 


the  ASATs .  * 

:  This  module  is  compiled  using  the  Microsoft  * 

6.0  compiler  and  linker. 

:  inters im  <option>  * 

<option>  can  be  0,1,2,99  * 

0  or  99  -  delay  from  ASAT  1  to  2  and  ASAT  2  * 

to  1  * 

1  -  delay  from  ASAT  1  to  2  only  * 

2  -  delay  from  ASAT  2  to  1  only  * 

if  no  option  is  given,  default  is  0  * 

:  The  module  spawns  the  ••posdelay”  module.  It  * 


will  run  without  the  '’posdelay”  module,  but  it  * 
will  end  with  an  error  screen;  it  will  still  * 
exit  gracefully  * 


* 


it 


icie'kicitititititiciticicititit‘kititititititititititicicitititititititititit±iticititieitititititititititititiciciticititititic^ 


/**********ifc***** 

*  includes  * 

# include  <stdio,h> 

# include  <ctype,h> 

# include  <graph.h> 
#include  <stdlib.h> 
tinclude  <string.h> 

# include  <process,h> 
# include  "delay. h” 

y-kic********** 

*  globals  * 
************/ 


int  *asatl_2,  /*  pointer  to  delay  from  asat  1  to  asat  2  */ 

*asat2_l,  /*  pointer  to  delay  from  asat  2  to  asat  1  */ 

*trial_time  /*  pointer  to  trial  time  for  delay  study  */ 

trial_number  =  1,/*  number  of  the  current  trial  */ 

asat_number ;  /*  number  of  the  ASAT,  either  1  or  2  */ 
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/ickifkitititisifitidt 

t 

*  functions  * 

************/ 

/*  Forward  declarations  */ 

void  hit_any(int  color, char  *buffer,int  text) ; 
void  heading (int  color) ; 

void  getstr(char  buf[],int  len,int  x,int  y) ; 
void  draw_border ( int  xl,int  yl,int  x2,int  y2) ; 
void  show(int  x,int  y,char  *buffer) ; 

void  paint (short  color, short  xl, short  yl, short  x2, short  y2) ; 


/ 

★ 

* 

* 

it 

it 

* 

* 

* 

it 

it 


********************************************************** 

trial_window ( ) 


PURPOSE 

ASSUMES 

CALL 


draws  the  trial_window,  shows  trail  number, 
•y'  or  'n'  for  continuation  or  exit 

nothing 

trail_window( reply) ; 


INPUT  PARAMETERS  ;  reply  —  pointer  to  character 


******* 

* 


* 

gets  * 
* 
* 
* 
* 
■k 
k 


k  k 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 


*  paint (color, xl,yl,x2,y2) 

*  heading (color) ; 

*  draw_border(xl,yl,x2,y2) 

*  getstr (buf ,x,y) 

*  checker (answer, x,y) 

*  hit_any (color, buf , color) 

*  show(x, y, buf ) ; 

* 

*  RETURNS  :  nothing 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*  SIDE  EFFECTS  ;  none  * 

******************************************************************/ 


void  trial_window(char  *reply) 

{ 

char  buffer[60]; 
char  buf [ 2 ] ,  answer ; 
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/*  draw  window  */ 


_setvideomode(_VRES16C0L0R) ; 

_clearscreen (_GCLEARSCREEN) ; 
paint(WHITE,0,0,700,600)  ; 
heading (BLUE) ; 
paint(BLUE,50,130,580,270)  ; 
draw_border (50, 130, 580, 270) ; 

^displaycursor (_GCURSORON) ; 

_settextcolor(BRIGHTWHITE) ; 

^setbkcolor (_BLUE) ; 

sprintf  (buffer,  "This  is  trial  number  :  %d",  trial_nuinber)  ; 
show (11, 10, buffer) ; 

show(14,10,"  Do  you  want  to  continue  ??  (y  /  n)  :  ") ; 
_settextposition(14,55) ; 

getstr (buf , 2 , 14 , 55) ;  /*  get  the  user's  reply,  validate  it  */ 

answer  =  buf[0];  /*  copy  it  into  answer  */ 

/*  while  answer  is  invalid,  get  the  answer  again  */ 

while ( I ( checker ( answer ,14,55))) 

{ 

getstr (buf , 2,14,55) ; 
answer  =  buf [ 0 ] ; 

) 

if (tolower( answer)  ==  *n') 

{ 

/*  User's  answer  is  no,  try  to  quit,  return  'n'  to  caller 

*/ 

hit_any  (BLUE,  "I  had  lots  of  fun  !!  Did  you 

??" , BRIGHTWHITE) ; 

♦reply  =  'n' ; 

} 

else 

I 

/*  User's  answer  is  yes,  try  to  continue,  return  'y'  to 
caller  */ 

hit_any  (BLUE,  "Hit  any  key  when  you  are  ready 
. . " , BRIGHTWHITE) ; 

♦reply  =  'y'; 

) 

) 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

•k 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 

* 

4c 


inf orm_window 0 


* 

* 


PURPOSE 


draws  the  infonn_window,  shows  information  about  * 
the  valid  intersimulator  delay  study  trial  * 
durations.  The  window  is  drawn  in  the  upper  * 
half  of  the  screen  leaving  enough  room  for  the  * 
delay_window  * 


ASSUMES 

CALL 


nothing 

inform  window () ; 


INPUT  PARAMETERS  ;  nil 

FUNCTION  CALLS (  other  than  standard  functions  ) 

paint (color, xl,yl,x2/y2) 
draw_border ( xl , y 1 , x2 , y 2 ) 
show(x,y,buf) ; 

RETURNS  :  nothing 


SIDE  EFFECTS 


none 


* 

* 

4r 

•k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


void  inf orm_window (void) 

{ 

_setvideomode(_VRES16COLOR) ;  /*  draw  window  */ 

_clearscreen(_GCLEARSCREEN) ; 

paint (WHITE, 0,0, 700, 600) ; 

paint  (BLUE,  50, 5, 580, 98)  ,* 

draw_border (50, 5, 580,98)  ; 

_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (_BLUE) ; 

show (3, 15, "Valid  delay  times  in  millisecs  :  0  ,  250  ,  500  , 
750")  ; 

show (5, 15, "Valid  trial  duration  :  1  -  30  minutes"); 
_setbkcolor (_GRAY) ; 

} 
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/***************************************************************** 

delay_windowl 0  * 

* 

*  PURPOSE  :  draws  the  delay_window,  gets  the  delay  from  * 

*  ASATl  to  ASAT2,  and  the  trail  duration  * 

* 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  delay_windowl (asatl_2 ,  trial_time) ;  * 

*  * 

*  INPUT  PARAMETERS  :  int  *asatl_2,  *trial_time  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  paint (color, xl,yl,x2,y2)  * 

*  draw_border (xl,yl,x2 ,y2)  * 

*  getdelay (x,y)  * 

*  gettrial (x,y)  * 

*  hit_any (color, buf, color)  * 

*  show (x,y, buf)  ,*  * 

*  * 

*  RETURNS  ;  nothing  * 

*  * 

*  SIDE  EFFECTS  :  sets  globals  *asatl_2,  *trial_tiine  * 

******************************************************************/ 

void  delay_windowl (int  *asatl_2,int  *trial_time) 

{ 

_displaycursor (_GCURSORON) ; 
paint(BLUE,50,140,580,350)  ; 
draw  border(50,140,580,350)  ; 

_settextcolor (BRIGHTWHITE) ; 

_setbkcolor (_BLUE) ; 

show(12,25,''  DELAY  DETAILS"); 

show (16, 10, "Enter  desired  delay  from  ASAT  1  to  ASAT  2  in  msec 
:")  ; 

show (20, 10, "Enter  desired  trial  time  in  mins  :"); 

*asatl_2  =  getdelay (16, 65) ;  /*  get  delay  value,  validate  it*/ 
*trial_time  =  gettrial (20, 65) ;  /*  get  trial  time  value, 

validate  it*/ 

_displaycursor (_GCURSOROFF) ; 

hit_any (BLUE, "Hit  any  key  to  continue  ...  ", BRIGHTWHITE) ; 

) 
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* 

delay_window2 ( ) 

★ 

k 

* 

PURPOSE 

:  draws  the  delay_window. 

gets  the  delay  from  ASAT2 

k 

* 

to  ASATl,  and  the  trail 

duration 

k 

it 

* 

ASSUMES 

:  nothing 

k 

k 

-k 

CALL 

:  delay_window2 (asat2_l. 

trial_time) ; 

k 

k 

k 

INPUT  PARAMETERS  :  int  *asat2_l. 

*trial_time 

k 

it 

k 

FUNCTION  CALLS (  Other  than  standard  functions  )  : 

k 

it 

k 

paint ( color , xl , y 1 , x2 , y2 ) 

k 

k 

draw_border ( xl , y 1 , x2 , y2 ) 

k 

k 

getdelay (X, y) 

k 

k 

gettrial (x,y) 

k 

k 

hit_any ( color , buf , color) 

k 

k 

show(x,y,buf ) ; 

k 

k 

k 

RETURNS 

:  nothing 

k 

*  * 
*  SIDE  EFFECTS  :  sets  globals  *asat2_l,  *trial_time  * 

******************************************************************y 
void  delay_window2 (int  *asat2_l,int  *trial_time) 

{ 

_displaycursor(_GCURSORON) ; 
paint (BLUE, 50, 140, 580, 350)  ; 
draw_border(50, 140, 580, 350) ; 

_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (_BLUE) ; 

show (12, 25,"  DELAY  DETAILS"); 

show (16, 10, "Enter  desired  delay  from  ASAT  2  to  ASAT  1  in  msec 
:”)  ; 

show (20, 10, "Enter  desired  trial  time  in  mins  :"); 

*asat2_l  =  getdelay (16, 65) ;  /*  get  delay  value,  validate 

it*/ 

*trial_time  =  gettrial (20, 65) ;  /*  get  trial  time  value, 

validate  it*/ 

_displaycursor (_GCURSOROFF) ; 

hit_any (BLUE, "Hit  any  key  to  continue  ...  " , BRIGHTWHITE) ; 

) 


Aviation  Test  Plan  Report 


Page  93 


/***************************************************************** 

*  delay_window3 ( )  * 

*  * 

*  PURPOSE  :  draws  the  delay_window,  gets  the  delay  from  ASATl  * 

*  to  ASAT2,  delay  from  ASAT2  to  ASATl,  and  the  trail  * 

*  duration  * 

*  * 

*  ASSUMES  ;  nothing  * 

*  * 

*  CALL  :  delay_windowl (asatl_2 ,  asat2_l,  trial_time) ;  * 

★  * 

*  INPUT  PARAMETERS  ;  int  *asatl_2,  *asat2_l , *trial_time  * 

*  * 

*  FUNCTION  CALLS (  Other  than  standard  functions  )  :  * 

*  * 

*  paint (color, xl,yl,x2,y2)  * 

*  draw_border (xl,yl,x2,y2)  * 

*  getdelay (x,y)  * 

*  gettrial (X, y)  * 

*  hit_any (color , buf, color)  * 

*  show (x,y, buf) ;  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  sets  globals  *asatl_2,  *trial_time  * 

******************************************************************y 

void  delay_window3 ( int  *asatl_2,int  *asat2_l,int  *trial_time) 

{ 

_displaycursor (_GCURSORON) ; 
paint(BLUE, 50, 140, 580, 350)  ; 
draw_border (50,140,580, 350) ; 

_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (_BLUE) ; 

show(ll,25,"  DELAY  DETAILS"); 

show ( 14 , 10, "Enter  desired  delay  from  ASAT  1  to  ASAT  2  in  msec 

•  If  \  • 

•  )  • 

show ( 17 , 10, "Enter  desired  delay  from  ASAT  2  to  ASAT  1  in  msec 
:")  ; 

show (20, 10, "Enter  desired  trial  time  in  mins  :"); 

*asatl_2  =  getdelay (14 , 65) ;  /*  get  delay  value,  validate 

it*/ 

*asat2_l  =  getdelay (17, 65) ; 

*trial_time  =  gettrial (20, 65) ;  /*  get  trial  time  value, 

validate  it*/ 

_displaycursor (_GCURSOROFF) ; 

hit_any( BLUE, "Hit  any  key  to  continue  ...  " , BRIGHTWHITE) ; 

) 
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***************************************************************** 

ready_window ( )  * 

*  * 

*  PURPOSE  ;  draws  the  ready_window,  requesting  user  to  * 

*  start  the  ASATs.  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  ready_window ( ) ;  * 

*  * 

*  INPUT  PARAMETERS  :  none  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  paint(color,xl,yl,x2,y2)  * 

*  heading (color) ;  * 

*  draw_border (xl,yl,x2,y2)  * 

*  show(x,y,buf) ;  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 

******************************************************************/ 

void  ready_window(void) 

{ 

_setvideoniode  (_VRES16COLOR)  ; 

_clearscreen(_GCLEARSCREEN) ; 
paint (DARKGRAY, 0,0, 700, 600) ; 
heading (RED) ; 

paint(RED,50,130,580,270)  ; 
draw_border (50 , 130 , 580 , 270) ; 

_settextcolor (31)  ; 

_setbkcolor (_RED) ; 

show(ll,10,"  Waiting  for  network  initialization  !!  ”) ; 
show (13, 10,"  You  may  start  the  ASATs  now..  ") ; 
show (15, 10,"  Press  Esc  key  if  unsuccessful,  else  any  other 
key") ; 

) 
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/***************************************************************** 

*  progress_window( )  * 

*  * 

*  PURPOSE  :  draws  the  progress_window,  informs  user  that  the  * 

*  trail  is  in  progress  and  remains  in  view  until  * 

*  the  control  returns  to  main  driver  * 


ASSUMES 


nothing 


CALL 


progress_window ( ) ; 


INPUT  PARAMETERS 


none 


*  FUNCTION  CALLS (  other  than  standard  functions  )  : 

* 

*  paint (color, xl,yl,x2,y2) 

*  heading (color) ; 

*  draw_border (xl,yl,x2,y2) 

*  show(x,y,buf ) ; 


*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


void  progress_window(void) 

{ 

_setvideomode(_VRES16C0L0R) ; 
_clearscreen(_GCLEARSCREEN) ; 
paint(DARKGRAy,0,0,700,600)  ; 
heading (RED) ; 

paint(RED,50,130,580,290)  ; 
draw_border (50, 130, 580,290) ; 


_settextcolor (BRIGHTWHITE) ; 

_setbkcolor (_RED) ; 

show (11, 10,"  Trial  in  progress  .  ") ; 

show (14, 10,"  Please  wait  !!"); 

show (17, 10,"  Hit  the  Escape  key  <Esc>  to  abort  trial"); 
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★ 

error_window ( ) 

* 

* 

•k 

PURPOSE 

;  draws  the  error_window,  in  case  spawning  fails 

* 

k 

* 

k 

ASSUMES 

:  nothing 

■k 

k 

* 

k 

CALL 

:  error_window ( )  ; 

* 

k 

* 

k 

INPUT  PARAMETERS  :  none 

* 

k 

FUNCTION 

CALLS (  other  than  standard  functions  )  : 

k 

* 

paint ( color , xl , yl , x2 , y2 ) 

k 

★ 

heading (color) ; 

k 

* 

draw_border ( xl , y 1 , x2 , y 2 ) 

k 

* 

show(x,y,buf ) ; 

k 

k 

hit_any ( color , buf , color) 

k 

k 

k 

k 

k 

RETURNS 

:  nothing 

k 

k 

k 

SIDE  EFFECTS  :  none 

k 

******************************************************************/ 

void  error_window(void) 

{ 

_setvideoinode(_VRES16C0L0R)  ; 

_clearscreen (_GCLEARSCREEN) ; 

paint (DARKGRAY, 0, 0, 700, 600) ; 
heading (RED) ; 

paint(RED,50,130,580,270)  ; 
draw_border (50, 130,580,270)  ; 

_settextcolor (31) ; 

_setbkcolor (_RED) ; 

show(ll,10,"  ERROR!  Delay  program  cannot  be  loaded  !  ”) ; 
show (14, 10,"  Need  to  abort  program  ...  ") ; 

hit_any(RED,  "  Hit  any  key  to  abort  . . . " , BRIGHTWHITE) ; 

) 
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I 


*  hit_any ( )  * 

*  * 

*  PURPOSE  :  gets  a  keyhit  from  keyboard  for  continuation  * 

*  purposes  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  hit_any (color, buffer, text) ;  * 

*  * 

*  INPUT  PARAMETERS  :  int  color  —  background  color  * 

*  int  text  —  text  color  * 

*  char  *buffer  —  text  to  be  displayed  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  paint (color , xl ,yl, x2 , y2)  * 

*  draw_border(xl,yl,x2,y2)  * 

*  show(x, y,buf ) ;  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


******************************************************************/ 

void  hit_any(int  color, char  *buffer,int  text) 

{ 

_displaycursor (_GCURSOROFF) ; 

_settextcolor (text) ; 

paint(color, 140,400,490,450)  ; 
draw_border (140, 400, 490, 450) ; 
show (27, 25, buffer) ; 

getchO ;  /*  get  and  toss  key  from  the  keyboard  */ 

_setvideomode (_DEFAULTMODE) ; 

} 
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y*************************  **************************************** 


*  heading ( )  * 

*  * 

*  PURPOSE  :  draws  the  heading  on  the  screen  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  heading (color) ;  * 

*  * 

*  INPUT  PARAMETERS  :  int  color  —  bkcolor  for  the  heading  * 

*  window  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  paint (color, xl,yl,x2,y2)  * 

*  draw_border (xl,yl,x2,y2)  * 

*  show(x,y,buf ) ;  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


******************************************************************/ 

void  heading (int  color) 

{ 

char  buf [50] ; 

paint(color,50,10,580,65) ; 
draw_border(50,10,580,65)  ; 

sprintf (buf, "AVIATION  TRAINER  TECHNOLOGY  LABORATORY"); 
_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (color) ; 
show (3 , 21, buf ) ; 

} 
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***************************************************************** 


message ( )  * 

*  * 

*  PURPOSE  :  draws  the  message  window,  with  information  about  * 

*  the  intersimulator  delay  study  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  message ( )  ;  * 

*  * 

*  INPUT  PARAMETERS  :  none  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  paint(color,xl,yl,x2,y2)  * 

*  heading (color) ;  * 

*  draw_border (xl,yl,x2,y2)  * 

*  show(x,y,buf ) ;  * 

*  hit_any (color, buf, color)  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


ieifiKieicifieititic'k'kitit'kitic'k'k'k'k'k-k'k'k-kic-kit-kieiticieititic-k'k'k'kic'k'kicit'kititititic'k'k'kicicic'k’k'kieicic'ky 

void  message (void) 

{ 

_setvideomode(_VRES16COLOR) ; 

_clearscreen(_GCLEARSCREEN) ; 

paint (DARKGRAY, 0, 0, 700, 600) ; 
heading (RED) ; 

paint (RED, 50, 130, 580, 310)  ; 
draw_border (50, 130, 580, 310)  ; 

_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (_RED) ; 

show (10,25,” INTERS IMULATOR  DELAY  STUDY " ) ; 

show ( 12 , 10, "This  PC  collects  data  packets  from  the  ASATs  and 
puts  them") ; 

show (14, 10, "back  on  the  network  after  inducing  a  desired  time 
delay.  ”) ; 

show (16, 10, "You  may  choose  the  respective  delays  and  the  trial 
time.  ”) ; 

show (18, 10, "After  the  run  you  may  save  the  results  in  a  file. 

”)  ; 

hit_any (RED, "Hit  any  key  to  proceed  ...",  BRIGHTWHITE) ; 

} 
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*  get_delay{)  * 

*  * 

*  PURPOSE  :  gets  the  delay  value  from  the  keyboard,  checks  * 

*  for  its  validity,  repeatedly  gets  the  value  until* 

*  it  gets  a  valid  value  and  then  returns  it  to  the  * 

*  caller.  Valid  delay  values  are  :  0,  250,  500,  750* 


*  msecs .  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  get_delay {x,y) ;  * 

*  * 

*  INPUT  PARAMETERS  :  int  x,y  —  where  to  read  input  from  on  * 

*  screen  * 

*  ★ 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  show(x,y,buf ) ;  * 

*  delay_checker (delay)  * 

*  get_string(str, value, x,y)  * 

*  * 

*  RETURNS  :  value  of  delay  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


int  getdelay(int  x,int  y) 

{ 

int  gotit  =  0,i; 
char  str[7]; 

enum  valid_delays  delay; 
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while  (Igotit)  /*  while  user  has  not  entered  a  valid  delay 


_settextposition(x,y) ; 

getstr(str,7,x,y) ;  /*  get  user's  input,  six  chars  max 

*/ 

for  (i=0;  i  <  strlen(str) ;  i++) 

{ 

if  ( (isalpha(str[i] ) )  ||  (ispunct (str [0] ) )  || 

(isspace(str[0] ) )  |!  (iscntrl (str [ i] ) ) ) 

{ 

/*  if  string  has  unwanted  chrs,  beep,  overwrite 
with  blanks  */ 

printf ("\07") ; 

_settextposition(x,y) ; 
show ( X , y , "  " ) ; 

gotit  =  0; 
break; 

) 

else 

gotit  =  1; 

) 

if  (gotit) 

{ 

delay  =  atoi(str)  ;  /*  convert  the  string  to  an  integer 

value*/ 

if  (delaychecker  (delay))  /*  check  if  it  valid  value 

*/ 

gotit  =  1; 

else 

{ 

/*  if  the  input  delay  is  not  the  right  choice, 
beep,  overwrite 

with  blanks,  repeat  */ 
printf ("\07") ; 

_settextposition(x,y) ; 
show(x,y,"  ") ; 

gotit  =  0; 

) 

} 

) 

return (delay) ; 

) 
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get_str ( ) 


PURPOSE 


gets  a  string  from  the  keyboard,  for  a  specified  * 
length  only.  The  user  can  still  use  the  editor  * 

keys  such  as  the  Backspace  key,  Del  key  etc. It  * 

will  not  user  to  enter  a  string  longer  than  the 
specified  length,  returns  it  to  caller  when 
Carriage  Return  key  is  entered 


ASSUMES 

CALL 


nothing 

get_str (buf, value, x,y) ; 


INPUT  PARAMETERS 


int  x,y  —  where  to  read  input  from 
screen 

int  value  —  maximum  length  of  string 
char  buf  —  holds  the  string 


FUNCTION  CALLS  (  ot*"  er  than  standard  functions  ) 

snow(x,y,buf) ; 


RETURNS  :  nothing 


SIDE  EFFECTS 


none 


* 

“k 

* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


void  getstr(char  buf[],int  len,int  x,int  y) 

{ 

char  ch,  cbuf[2]; 
int  i , xpos , ypos ; 

_settextposition (X, y) ; 
xpos  =  x; 
ypos  =  y; 
i  =  0; 
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/*  Repeat  while  CR  is  not  pressed  or  length  of  string  <  len  */ 
do 
{ 

ch  =  getch();  /*  get  a  char  from  */ 

if  (ch  ==  CARRIAGE) 
buf[i]  =  '\0'; 

else 

{ 

/*  char  is  not  Carriage  Return  key,  check  if  it  is 
Backspace*/ 

if  (ch  !=  BACKSPACE) 

{ 

/*  char  is  not  Backspace  key,  save  it  in  buf, 
display  it  */ 

if  (i  <  len-1) 

{ 

_settextposition (xpos, ypos) ; 
sprintf (cbuf , "%c" , ch) ; 

_outtext (cbuf ) ; 
buf[i]  =  ch; 
i++; 
ypos++ ; 

} 

else 

printf  (”\07**)  ; 

} 

else 

{ 

/* 

char  is  Backspace  key,  erase  previous  char  on 
screen  remove  it  from  buf  only  if  buf  is  not 
empty  else  beep 

*/ 

if  (i  >  0) 

{ 

i — ; 
ypos — ; 

_settextposition(xpos,ypos) ; 
show ( xpos , ypos , "  " )  ; 

_settextposition( xpos, ypos) ; 

) 

else 

printf  ( ”\07'')  ; 

) 

} 

} 

while  (i  <  len  &&  ch  !=  CARRIAGE); 

if  (i  ==  len-1) 

buf [len-1]  =  '\0'; 

} 
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call_initsys ( )  * 

*  * 

*  PURPOSE  :  spavms  a  child  process  to  invoke  initsys.exe  and  * 

*  sends  it  the  asat_nxiinber .  If  initsys.exe  is  not  * 

*  present  in  the  directory,  it  will  return  with  an  * 

*  error  * 

*  * 

*  ASSUMES  :  nothing  * 

★  * 

*  CALL  :  call_initsys ( )  ;  * 

*  * 

*  INPUT  PARAMETERS  :  none  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 

★  ★******if********************'<f******Tfc******lfc**********************y/ 

void  call_initsys (void) 

{ 

char  *args[3],  buf fers [ 3 ] [ 10] ; 
int  child_return; 

args[0]  =  "initsys";  /*  name  of  executable  file  to  be 

initiated  */ 

args[l]  =  itoa (asat_number,  buffers[l],  BASE); 
args[2]  =  NULL; 

child_return  *  spawnv (P_WAIT, "initsys . exe" , args) ; 

/*  if  spawning  fails,  exit  gracefully  */ 
if  (child_return  ==  -l) 
error_window() ; 

) 
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* 

if 

call_predelay  ( ) 

it 

★ 

* 

PURPOSE 

:  spawns  a  child  process  to  invoke  predelay.exe 

* 

* 

and  sends  it  the  delay  values,  trial  duration. 

it 

* 

asat  number.  If  predelay.exe  is  not  in  the 

it 

* 

if 

directory,  it  will  return  with  an  error 

it 

* 

if 

ASSUMES 

:  nothing 

it 

it 

* 

* 

CALL 

:  call_predelay ( ) ; 

it 

it 

*  INPUT  PARAMETERS  :  int  asatl  2,  asat2_l ,  trial_time,  asatnum  * 


*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


*****************************************************************/ 

void  call_predelay  (int  asatl_2,int  asat2_l,int  trial_tiine,  int 

asatnum) 

{ 

char  *args[7],  buf fers [ 5 ] [ 10] ; 
int  child_return; 

args[0]  =  ••predelay"; 

args[l]  =  itoa (asatl_2 ,  buffers[0],  BASE); 
args[2]  =  itoa (asat2_l,  buffers[l],  BASE); 
args[3]  =  itoa (trial_time,  buffers[2],  BASE); 
args[4]  =  itoa(trial_number,  buffers[3],  BASE); 
args[5]  =  itoa (asatnum,  buffers[4],  BASE); 
args[6]  =  NULL; 

child_return  =  spawnv  (P_WAIT,  "predelay .  exe^^ ,  args)  ; 

/*  if  spawning  fails,  exit  gracefully  */ 
if  (child_return  ==  -1) 
error_window( ) ; 

} 


Aviation  Test  Plan  Report 


Page  106 


*  draw_border ( )  * 

*  * 

*  PURPOSE  :  draws  a  double  line  border,  inside  a  window  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  draw_border ( xl , y 1 , x2 , y 2 ) ;  * 

it  it 

*  INPUT  PARAMETERS  :  int  xl,yl,x2,y2  —  left  top,  right  * 

*  bottom  pts  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


■kic***************************************************************^ 

void  draw_border ( int  xl,int  yl,int  x2,int  y2) 

{ 

_setcolor (BRIGHTWHITE) ; 

_inoveto(xl+5,yl+5)  ; 

_lineto(x2-5,yl+5)  ; 

_lineto (x2-5 , y2-5)  ; 

_lineto (xl+5 , y2-5)  ; 

_lineto(xl+5,yl+5)  ; 

_moveto(xl+8 ,yl+8) ; 

_lineto(x2-8 ,yl+8) ; 

_lineto(x2-8 ,y2-8) ; 

_lineto(xl+8,y2-8) ; 

_lineto(xl+8,yl+8) ; 

) 
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*  delaychecker ( )  * 

*  * 

*  PURPOSE  :  checks  for  validity  of  given  delay  value  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  delaychecker (value) ;  * 

it  it 

*  INPUT  PARAMETERS  :  int  value  —  delay  value  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  true  or  false,  based  on  value  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


******************************************************************/ 

int  delaychecker (enum  valid_delays  value) 

{ 

switch  (value) 

{ 

case  ZERO  : 
case  SMALL  : 
case  MEDIUM  : 
case  LARGE  : 
return (1) ; 


) 


default  : 

return  (0) ; 
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*  trialcheckerO  * 

*  * 

*  PURPOSE  :  checks  for  validity  of  given  trail  duration  * 

*  value  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  ;  trialchecker (value) ;  * 

*  * 

*  INPUT  PARAMETERS  :  int  value  —  trial  duration  value  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  true  or  false,  based  on  value  * 

*  * 

*  SIDE  EFFECTS  :  none  * 


*****************************************************************/ 

int  trialchecker (int  value) 

{ 

/*  Trial  time  is  not  zero  minutes  and  less  than  31  minures  */ 
return (0  <  value  &&  value  <  MAXTRIAL) ; 

} 
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/**************************************************************** 

*  checker ( )  * 

*  * 

*  PURPOSE  :  checks  if  given  character  is  a  Y/y/N/n  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  checker (answer, x,y) ;  * 

*  * 

*  INPUT  PARAMETERS  :  Char  answer  —  char  to  be  tested  * 

*  x,y  —  position  to  print  blanks  on  * 

*  answer  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  true  or  false,  based  on  answer  * 

*  * 

*  SIDE  EFFECTS  :  none  * 

it****************************************************************/ 

int  checker (char  answer, int  x,int  y) 

{ 

switch ( toupper ( answer) ) 

{ 

case  ' Y '  : 
case  'N'  : 

return (1) ; 

default  : 

{ 

printf  (''\07'')  7 
show(x,y,''  '•)  ; 

_settextposition(x,y) ; 
return (0)  ; 

} 

} 

} 
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/**************************************************************** 

*  show ( )  * 

*  * 

*  PURPOSE  :  writes  text,  inside  a  window  at  x,y  * 


*  ASSUMES 


*  CALL 


writes  text,  inside  a  window  at  x,y 
nothing 

show (x,y, buffer) ; 


*  INPUT  PARAMETERS  :  int  x,y  —  location  where  to  write  * 

*  text  * 

*  char  buffer  -  text  to  write  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 

*****************************************************************/ 

void  show (int  x,int  y,char  *buffer) 

{ 

_settextposition (x,y) ; 

_outt ext (buffer) ; 

} 

y**************************************************************** 

*  paint  0  * 

*  * 

*  PURPOSE  :  fills  a  window  with  given  color  * 

*  * 

*  ASSUMES  ;  nothing  * 

*  * 

*  CALL  :  paint(color,xl,yl,x2,y2) ;  * 

*  * 

*  INPUT  PARAMETERS  :  int  xl,yl,x2,y2  —  left  top,  right  * 

*  bottom  * 

*  int  color  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  none  * 

*  * 

*  RETURNS  :  nothing  * 


*  SIDE  EFFECTS  :  none  * 

★  ♦it**************************************************************/ 


void  paint (short  color, short  xl, short  yl, short  x2, short  y2) 

{ 

_setcolor (color) ; 

_rectangle (_GFILLINTERIOR, xl , yl , x2 , y2 ) ; 

) 
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y**************************** 

*  main  driver  * 

****************************/ 

void  main(int  argc,char  *argv[]) 

{ 

char  *answer;  /*  pointer  to  'y'  or  'n'  continuing  execution  */ 
/*  If  no  option  is  given,  treated  as  if  parameter  was  0  */ 
if  (argc  <  2) 

asat_number  =0;  /*  No  option,  use  default  */ 

else 

asat_number  =  atoi (argv[ 1] ) ;  /*  Check  option  validity  */ 

if  (asat_number  &&  asat_number i=l  &&  asat_number  !=  2  && 
asat_number  !=  99) 

{ 

printf ( "Parameter  error.  Retry  !\n") ; 
exit (0)  ; 

} 


/*  Allocate 

asatl_2 

asat2_l 

trial_time 

answer 


memory  for  globals  */ 

=  (int  *)  malloc{sizeof (int) ) ; 
=  (int  *)  malloc(si2eof (int) ) ; 
=  (int  *)  malloc(sizeof (int) ) ; 
=  (char  *)  malloc(sizeof (char) ) 


*asatl_2  =  *asat2_l  =0; 

message  0 ;  /*  display  initial  message  */ 

trial_window( answer) ;  /*  display  trail  window  with  trial 

number  */ 

/*  while  user  does  not  want  to  quit  */ 
while (*answer  !=  'n') 

( 

inform_window( ) ;  /*  draw  inform_window  with  valid 

values  */ 


/*  based  on  asat_number,  draw  the  appropriate  window  */ 


if  (asat_number  ==  l) 

delay_windowl (asatl_2 , trial_time) ;  /*  get  delay 

ASAT  1  to 

else 

if (asat_number  ==  2) 

delay_window2 (asat2_l, trial_time) ;  /*  get  delay 

ASAT  2  to 

else 


/*  get  gelay  form  ASAT  1  to  2  */ 

/*  get  delay  from  ASAT  2  to  1*/ 
delay_window3 (asatl_2 ,  asat2_l,  trial_time) ; 


from 
2  */ 


from 
1  */ 
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/*  spawn  to  initiate  initsys. exe*/ 


ready_window 0 ; 
call_initsys() ; 
progress_window ( ) ; 

/*  spawn  to  initiate  predelay. exe*/ 

call_predelay (*asatl_2,  *asat2_l,  *trial_tiine, asat_nuinber)  ; 

trial_nuinber++ ;  /*  increment  trial  number  */ 

trial_window (answer) ; 

} 

} 

/*  End  of  file  */ 
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6.0  Initsys.c 


Program  Cover  Sheet 

Program  Name:  initsvs.c  Latest  Version:  1.1  Date:  9-15-1991 
Languages:  C  Manufacturer:  Microsoft  Co.  Version:  5.1 


Description: 

This  program  serves  as  the  pre-network  service  before  the  program 
delay.exe  is  invoked.  It  transfers  packets  of  type  0  and  1  to 
allow  the  two  ASAT  simulators  to  make  decisions  as  to  who  is  the 
master  simulator. 

This  program  is  invoked,  with  1  optional  parameter,  by 
intersim.exe.  This  program  is  terminated  on  receipt  of  a  packet  of 
type  8  or  9. 
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/ill,***********************************  *********************  ******* 

*  initsys:  Transfer  packet  of  type  0  and  1  before  the  ASATs  * 

*  start  to  fly.  Called  by  intersim. exe.  * 

*  * 

*  Predecessor:  intersim. exe  * 

*  Successor  :  None  * 

******************************************************************/ 

/**************** 

*  includes  * 

****************/ 

finclude  <dos.h> 

#include  <stdlib.h> 
finclude  "inet.h" 

/******************** 

*  declarations  * 

********************/ 

/*  Asat  addresses,  the  two  simulator  used  in  the  experiment  */ 


char  far  asatl_address[6]  =  (0x02, 
char  far  asat2_address[6]  =  (0x02, 

0x60 , 
0x60, 

0x8c, 

0x8c, 

OxOd, 

OxOd, 

0x25, 

0x20, 

Oxea }  ; 
0xf5) ; 

/*  Local  PC  address  */ 

char  mypcaddress[6]  =  (0x02,  0x60, 

0x8c, 

0x4b, 

OxOd, 

0x9b} 

• 

t 

/**************** 

*  functions  * 

****************/ 

void  main(int  argc,char  *argv[]) 

{ 

int  i ; 

int  clearFlag  =  TRUE;  /*  FALSE 

TRUE 

int  newaddflag  =  FALSE;  /*  FALSE 

TRUE 

int  Rcvflag  =  TRUE;  /*  FALSE 

TRUE 


-  rev  buf  block  need  not  be 
released 

-  rev  buf  block  needs  to  be 

released  */ 

-  pkt  addr  field  need  not  to 

be  changed 

-  pkt  addr  field  need  to  be 

changed  */ 

-  not  receiving  packets 

-  receiving  packets  */ 
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int  numpktl ,  nuinpkt2 ;  /*  #  of  packets  in  receiving  queue  */ 

int  pktlen;  /*  packet  length  */ 

int  pkttype;  /*  packet  type  */ 

int  total_packet_length;/*  total  #  of  bytes  of  a  packet  */ 

int  nuinber_byte ;  /*  #  bytes  of  data  in  a  packet  */ 

int  flags;  /*  specifies  wait  or  non-wait  trx  */ 

int  reqid;  /*  adapter  id  */ 

int  nreqid;  /*  returned  adapter  id  -  reserved  */ 

int  return_code;  /*  for  function  returns  */ 

int  AsatID;  /*  simulator  ID  */ 

int  AsatIDO  =0;  /*  trx  buffer  pointer  pointed  by 

Pkttrxptr  */ 

int  cntlkey  =  FALSE;  /*  initialize  control  key  =0  */ 

if  (argc  <  2)  /*  Decide  whether  we're  1  ASAT,  or  a 

pair  */ 

network_mode  =  TEAMMODE; 

else 

network_mode  =  atoi (argv[l] ) ; 


init_3com_all ( ) ; 
cmy Address  0  ; 

flags  =  ADAPTERWAIT; 
reqid  =  ADAPTERID; 

/*  copy  the  PC  address  to  the  transmitting  buffer  */ 

for  (i=0;  i<6;  i++) 

Pkttrxptr [i]  =  mypcaddress [i] ; 

cRcvFlag (Rcvf lag) ;  /*  start  to  receive  packets  */ 

AsatID  =  ASAT2; 
pkttype  =  PKTTYPEO; 
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/* 

During  normal  operation,  will  receive  data  as  packet  type 
0  or  1.  So  process  as  long  as  we  get  one  of  these,  and 
as  long  as  user  does  not  say  to  quit. 

*/ 

while  (cntlkey  !=  ESCKEY  &&  (pkttype  ==  PKTTYPEO  j  j  pkttype  == 
PKTTYPEl) ) 

{ 

if  (kbhitO) 

cntlkey  =  getch() ; 

numpktl  =  numpkt2  =0; 


/* 

Check  each  receiving  buffer, 

if  there  is  a  packet,  then  get  the  packet  pointer 
and  length. 

*/ 


if  (AsatID  ==  ASAT2) 

{ 

AsatID  =  ASATl; 

numpktl  =  cGetNumPkt (AsatID) ; 

if  (numpktl  >  0) 

pktlen  =  cGetOnePkt (&Pkt, AsatID, clearFlag) ; 

} 

else 

if  (AsatID  ==  ASATl) 

{ 

AsatID  =  ASAT2; 

numpkt2  =  CGetNumPkt (AsatID) ; 


} 


if 


(numpkt2  > 
pktlen  = 


0) 

cGetOnePkt ( &Pkt , AsatID , clearFlag) ; 
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/* 

if  a  packet  arrived, 

copy  data  from  the  receiving  buffer  to  the 
transmitting  buffer  and  then  retransmit  the  packet. 

*/ 

if  (pktlen  >  0) 

( 

pkttype  =  Pkt->inp[ASATTYPEBYTE] ; 

/*  copy  address  from  the  receiving  to  the 
transmitting  buffer  */ 

for  (i=6;  i<pktlen;  i++) 

Pkttrxptr[i]  =  Pkt->inp[i]; 

pktlen  =  (int)  max (pktlen, MINLEN) ; 

total  packet  length  =  number_byte  =  pktlen; 

/*  re-transmit  a  packet  */ 

return_code=cXmitl (  total_packet_length, 
number_byte , 
flags , 
reqid, 

Pkttrxptr, 

&nreqid, 

AsatIDO, 
rewaddflag) ; 
pktlen  «  0; 

} 

} 

return_code=cResetAdapter ( ) ; 

} 
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7 . 0  Predelay. c 


Program  Cover  Sheet 

Program  Name;  oredelav. e  Latest  Version:  1.1  Date;  9-15-1991 
Languages:  C  Manufacturer:  Microsoft  Co.  Version:  5.1 


Description: 

This  program  serves  the  computing  of  the  time  delay  thresholds  from 
the  passing  parameters  from  the  program  intersim.exe .  The 
parameters  received  from  intersim.exe  are:  delay  of  ASAT  #1,  delay 
of  ASAT#2,  trial  time,  trial  number,  and  network  option  number. 
Then,  this  program  passes  the  following  parameters  to  the  program 
delay.exe:  delay  of  ASAT  #1,  delay  of  ASAT  #2,  trial  time,  trial 
number,  an  optional  number,  time  threshold  #1,  and  time  threshold 
#2. 


*  * 

*  predelay. c  :  This  program  receives  arguments  from  * 

*  intersim.exe .  It  converts  the  delays  from  * 

*  milliseconds  to  a  timer  count  and  computes  * 

*  the  time  error  thresholds.  The  computed  * 

*  values  are  passed  to  the  program  delay.exe.  * 

*  * 

*  Predecessor:  calling  program  -  intersim.exe  * 

*  Successor  :  called  program  delay.exe  * 

*  * 
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/**************** 

*  Includes  * 

/*  Standard  include  files  */ 

# include  <graph.h> 

# include  <process.h> 

# include  <stdio.h> 

# include  <stdlib.h> 

# include  <string.h> 

/**************** 

/*  Constants  * 

**************** y 

#define  ASATl 
#define  ASAT2 
#define  MILISEC 

# define  FACTORl 

#define  FACT0R2 

#define  PRECISION 

#define  RADIX 

y***************************************************************** 


*  Arguments  passed  from  intersim.exe:  * 

*  * 

*  argv[l]  =  delay  on  simulator  #1  in  milliseconds  * 

*  argv[2]  =  delay  on  simulator  #2  in  milliseconds  * 

*  argv[3]  =  trial  time  in  minutes  * 

*  argv[4]  =  trial  number  * 


*  argv[5]  =  network  mode,  single  or  two  simulators  * 

******************************************************************/ 

void  main(int  argc,  char  *argv[]) 

{ 

char  *args[10];  /*  Converted  arguments  */ 

char  buf fer [ 10] [ 15] ;  /*  conversion  buf  for 

int->string,  unsigned  long->string, 
f loat->string  */ 


int  network_mode ;  /*  team  mode  or  solitaire  mode  */ 

/*  variables  for  both  simulator  #1  and  #2  */ 

int  delayl,delay2 ;  /*  delay  in  milliseconds  */ 

float  delaymilil,delaymili2 ;  /*  delay  in  milliseconds  */ 

float  thresholdl, threshold2;  /*  bottom  limit  of  time 

boundary  */ 


unsigned  long  delaytimel,delaytime2 ;  /*  delay  in  timer  count  */ 


1  /*  ID  for  simulator  #1  */ 

2  /*  ID  for  simulator  #2  */ 

0.838*1191.5636  /*  Time  counter  conversion 

const  f 

1.2  /*  Correction  factor  for 

delay  #1  f 

1.2  /*  Correction  factor  for 

delay  #2  / 

5  /*  Precision  for  converting 

a  float  / 

10  /*  Base  of  integer  */ 
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if  (argc  <  6) 

{ 

printfC'Too  few  arguments  passed  from  %s\n'',argv[0] )  ; 
exit(O)  ; 

} 

/*  arguments  coming  from  intersim.exe  */ 

delayl  =  atoi  (argv[  1] )  ;  /*  delay  on  simulator  #1  in  ms  */ 

delay2  =  atoi(argv[2] )  ;  /*  delay  on  simulator  #2  in  ms  */ 

network_mode  =  atoi  (argv[5] )  ;  /*  team  mode  or  solitaire  mode  */ 

delaytimel  =  delaytime2  =  0; 
delaymilil  =  delaymili2  =  0; 

delaymilil  =  delayl*FACTORl ; 
delaymili2  =  delay2*FACTOR2 ; 

delaytimel  =  (unsigned  long)  delaymilil*MILISEC; 
delaytime2  =  (unsigned  long)  delaymili2*MILISEC; 

/*  initialize  the  delay  thresholds  */ 

thresholdl  =  (float)  delaytimel*0. 006  ,* 
threshold2  =  (float)  delaytime2*0. 006; 

/*  optimize  the  delay  thresholds  */ 

if  (delayl  ==  0  &&  delay2  ==  250) 

threshold2  *  (float)  delaytime2*0. 005; 

if  (delayl  ==  250  &&  delay2  ==  0) 

thresholdl  =  (float)  delaytimel*0. 004 ; 

if  (delayl  ==  250  &&  delay2  ==  500) 

{ 

thresholdl  =  (float)  delaytimel*0. 005; 
threshold2  =  (float)  delaytime2*0. 005; 

} 

if  (delayl  ==  500  &&  delay2  ==  250) 

{ 

thresholdl  =  (float)  delaytimel*0 . 004 ; 
threshold2  =  (float)  delaytime2*0 . 0035 ; 

} 

if  (delayl  ==  250  &&  delay2  ==  750) 

{ 

thresholdl  =  (float)  delaytimel*0. 004 ; 
threshold2  =  (float)  delaytime2*0. 003 ; 

) 
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if  (delayl  ==  750  &&  delay2  ==  250) 

{ 

thresholdl  =  (float)  delaytiinel*0 . 003 ; 
threshold2  =  (float)  delaytime2*0 . 004 ; 

) 

/*  prepare  argiiments  passing  to  delay.exe  */ 

args[0]  =  ''delay"; 

i  f  ( network_inode ) 

args[l]  =  argv[l] ; 

else 

args[l]  =  ”0"; 

args[2]  =  ultoa(delaytiinel,buffer[2]  ,RADIX)  ; 

args[3]  =  ultoa(delaytime2,buffer[3] ,RADIX) ; 

args[4]  =  gcvt( (double) thresholdl,PRECISION, buffer [4] ) ; 

args[5]  =  gcvt( (double) threshold2, PRECISION, buffer[5]) ; 

args[6]  =  argv[3];  /*  trial  time  in  minutes  */ 

args[7]  =  argv[4];  /*  trial  number  */ 

args[8]  =  argv[lj ;  /*  delay  on  simulator  #1  */ 

args[9]  =  argv[2];  /*  delay  on  simulator  #2  */ 

args[10]  =  NULL; 

/*  Call  delay.exe  */ 

if  (spawnv(P_WAIT,  ”delay.exe'',args)  <  0) 

printf ("Error  !!  cannot  invoke  saver.exe''); 
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8.0  Delay,  c 


Program  Cover  Sheet 

Program  Name:  delay. c  Latest  Version:  1.1  Date:  9-15-1991 

Languages:  C  Manufacturer:  Microsoft  Co.  Version:  5 . l 


Description: 

This  program  serves  as  the  packet  controller.  It  receives  packets 
from  ASAT  #1  and  ASAT  #2  simulators  through  the  Ethernet  and 
replaces  the  first  six  bytes  of  each  packet  with  the  PC's  address. 
Then  each  packet  is  retransmitted  after  a  preset  time.  The 
functions  of  this  program  are: 

Receiving: 

1 .  Checks  byte  8  of  each  packet  in  order  to  switch  between 
the  receiving  buffers. 

2.  Saves  the  time  stamp  of  each  received  packet. 
Transmitting: 

1.  Gets  one  packet  from  either  receiving  buffer  and  the 
packet's  time  stamp. 

2.  Replaces  the  ASAT  address  with  the  PC's  network  address. 

3 .  Holds  the  packet  for  a  preset  time  and  then  retransmits 
the  packet. 

Network  service  may  be  terminated  by: 

1.  time  expiration.  Duration  is  specified  by  the  user. 

2.  either  ASAT  simulator  terminating  (crashed,  kill,  or 
aborted) . 

3.  user  request. 

The  program  receives  parameters  passed  from  predelay.exe  and 
transfers  some  statistics  to  the  program  posdelay.exe.  This  program 
is  called  by  the  program  posdelay.exe  and  it  calls  the  program 
posdelay. exe . 

At  the  end  of  the  network  services,  the  program  transmits  a  type  10 
packet  to  tell  the  other  users  that  the  network  service  is  ended. 
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*  * 


* 

* 

* 

* 

* 

* 

* 


DELAY . C  * 

* 

Description:  This  file  contains  the  code  which  calls  the  * 

functions  provided  by  the  5 03. lib  to  * 

receive/ transmit  packets  through  3COM  * 

EtherLinkll  board.  * 

* 


* 

★ 

★ 

★ 

★ 

★ 

* 

* 

A 

* 

* 

* 


This  program  prepares  two  queues  to  * 

receive/ transmit  packets  for  ASAT  #1  and  * 

ASAT  #2.  * 

* 

Packets  coming  from  ASAT  #1  and  ASAT  #2  are  * 
queued.  Each  packet  is  kept  in  the  receiving* 
buffer  for  the  required  time  period.  Then,  * 
the  packet  is  retransmitted  and  its  address  * 
is  changed  to  the  required  target  address.  * 

* 


Predecessor:  calling  program  predelay.exe  * 

Successor  :  called  program  posdelay.exe  * 

** **************************************************************/ 


/**************** 

*  Includes  * 

****************/ 

/*  standard  include  files  */ 

# include  <dos.h> 

# include  <process.h> 

# include  <stdio.h> 

# include  <stdlib.h> 

# include  <time.h> 

/*  Intersimulator  include  file  */ 


# include  "inet.h" 

/It*********************** 

*  Forward  Declarations  * 

************************/ 

void  init_parms (void) ; 
unsigned  long  get_dif f_time () ; 

/**************** 

/*  Constants  * 

****************/ 

#define  PRECISION  0  /*  precision  of  converting  a  float  */ 

#define  RADIX  10  /*  base  of  integer  */ 
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/**************** 

/*  Declarations  * 

**-k*****it**it*it**y 

/*  ASAT  addresses,  the  two  simulator  used  in  the  experiment  */ 

char  far  asatl_address[6]  =  {0x02,  0x60,  0x8c,  OxOd,  0x25,  Oxea); 
char  far  asat2_address[6]  =  {0x02,  0x60,  0x8c,  OxOd,  0x20,  0xf5}; 

/*  enforced  PC  address,  which  can  be  any  address  */ 

char  mypcaddress [ 6 ]  =  {0x02,  0x60,  0x8c,  0x4b,  OxOd,  0x9b}; 

/*  Global  variables  */ 

int  clearFlag  =0;  /*  0  -  rev  buffer  block  need  not  to  be 

released 

1  -  rev  buffer  block  need  to  be 

released  f 

int  newaddflag  =  0;  /*  0  -  packet  address  field  need  not  to  be 

changed 

1  -  packet  address  field  need  to  be 
changed  ^ 

int  Rcvflag  *=0;  /*  0  -  not  receive  packets 

1  -  receive  packets  */ 

int  minutes, seconds;  /*  trial  time  tracing  variables  */ 

/*  variables  for  both  simulator  #1  and  #2  */ 

int  errorcountl, errorcount2 ;  /*  count  for  time  stamping  errors  */ 
int  f irstl, f irst2 ;  /*  first  packet  receiving  flag  */ 

int  ffiaxinQl,maxinQ2 ;  /*  max.  #  of  packet  in  rev  queue  */ 

int  mininQl,mininQ2 ;  /*  min.  #  of  packet  in  rev  queue  */ 

int  minusl,minus2 ;  /*  #  of  packets  trx  below  time  line  */ 

int  outflagl,outflag2 ;  /*  negative  time  error  summation  fig*/ 

int  plusl,plus2;  /*  #  of  packets  trx  above  time  line  */ 

int  timeoutl, tiraeout2 ;  /*  packet  holding  time  out  flag  */ 

int  trxstatusl, trxstatus2 ;  /*  packet  holding  flag  */ 

double  summinusl, summinus2 ;  /*  sum  of  negative  time 

error  / 

double  sumplusl, sumplus2 ;  /*  sum  of  positive  time 

error  / 

double  sumtl,sumt2;  /*  sum  of  total  time  error 

/ 

unsigned  long  icntl,icnt2;  /*  packet  receiving  counter 

/ 

unsigned  long  trxcntl , trxcnt2 ;  /*  packet  transmitting 

counter  / 
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*  Arguments  passed  from  predelay.exe:  * 

*  * 

*  argv[l]  =  single  or  two  simulators  code  * 

*  argv[2]  =  delay  on  simulator  #1  in  timer  tick  count  * 

*  argv[3]  =  delay  on  simulator  #2  in  timer  tick  count  * 

*  argv[4]  =  time  error  threshold  for  simulator  #1  * 

*  argv[5]  =  time  error  threshold  for  simulator  #2  * 

*  argv[6]  =  trial  time  in  minutes  * 

*  argv[7]  =  trial  number  * 

*  argv[8]  =  delay  on  simulator  #1  in  milliseconds  * 

*  argv[9]  =  delay  on  simulator  #2  in  milliseconds  * 


*****************************************************************y 

void  main(int  argc,char  *argv[]) 

{ 

char  *args[17];  /*  arguments  passing  pointer  array  */ 

char  *stopstr;  /*  data  converting  stop  string  pointer  */ 

/* 

data  converting  buffers,  int->string,  unsigned 
long->string,  float->string 

*/ 

char  buffer [17] [10]  ; 


int  i; 

int  trxflag;  /*  trx  packet  id,  l=Asatl,  2=Asat2  */ 
int  numpkt,pktlen;  /*  #  packet,  packet  length  */ 
int  total_packet_length;  /*  #  bytes  of  a  packet  */ 
int  number_byte;  /*  #  bytes  of  a  packet  */ 
int  flags;  /*  specifies  wait  or  non-wait  trx  */ 
int  reqid;  /*  adapter  id  */ 
int  nreqid;  /*  returned  adapter  id,  reserved  */ 
int  return_code;  /*  return  value  of  a  function  call  */ 
int  AsatID;  /*  simulator  ID  */ 
int  AsatIDO  =  0;  /*  trx  buf  ptr  pointed  by  Pkttrxptr  */ 
int  endirun  =  FALSE;  /*  network  service  control  flag  */ 
int  cntlkey  =  FALSE;  /*  assign  control  key  not  =  ESCKEY  */ 
float  timef;  /*  time  difference  in  count  */ 
int  minute, second; 


int  netflag;  /*  network  termination  status  */ 

/*  0  -  normal  time  end  */ 

/*  1  -  simulator  #1  is  dead  */ 

/*  2  -  simulator  #2  is  dead  */ 

/*  9  -  ended  by  user  */ 
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/*  variables  for  both  simulator  #1  and  #2  */ 

int  numpktl, nump)ct2 ;  /*  #  of  packet  in  receiving  queue  */ 

int  pktlenl,pktlen2 ;  /*  packet  length  */ 

int  roundl , round2 ;  /*  time  counter  rounding  flag  */ 

float  thresholdl, threshold2 ;/*  time  allowance  below  time  line*/ 


unsigned  long  asaterrorl,asaterror2 ;/*  time  stamping  error 

compensation  / 

unsigned  long  Atimel, Atime2 , Atime3 ;  /*  time  stamping  for  Asat 

#1  / 

unsigned  long  Btimel, Btime2,Btime3 ;  /*  time  stamping  for  Asat 

#2  */ 
unsigned  long  delaytimel,delaytime2 ;/*  packet  holding  time  in 

count  / 

unsigned  long  nexttimel,nexttime2 ;  /*  next  packet  transmitting 

time  f 


unsigned  long  timecount, timedif ; 


/*  get  the  arguments  passed  by  predelay.exe  */ 


if  (argc  <  10) 

{ 

printf ("Less  arguments  passed  from  %s\n" ,argv[0] ) ; 
exit (0)  ; 

} 


network_mode  =  atoi (argv[l] ) ; 

delaytimel  =  strtoul (argv[2] , Sstopstr, 0) ; 
delaytime2  =  strtoul (argv[3] , &stopstr, 0) ; 


thresholdl  =  (float)  strtod(argv[4] , Sstopstr)/ 100000; 
threshold2  =  (float)  strtod(argv[5] , &stopstr)/100000; 

minutes  =  atoi (argv[6] ) ; 


seconds  =  0; 
minute  =  0 ; 


init_3com_all ( ) ; 
cmyAddress ( ) ; 

/*  copy  the  PC  address  to  the  transmitting  buffer  */ 

for  (i=0;  i<6;  i++) 

Pkttrxptr [ i ]  =  mypcaddress [ i ] ; 

flags  =  ADAPTERWAIT; 
reqid  =  ADAPTERID; 

/*  compute  the  time  stamping  error  compensation  */ 

asaterrorl  =  (unsigned  long)  ASATERR0R1*MILISEC; 
asaterror2  =  (unsigned  long)  ASATERR0R2*MILISEC; 
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/*  initialize  global  variables  */ 
/*  start  to  receive  packets  */ 

/*  get  network  starting  time  */ 


init_parms() ; 
cRcvFlag(Rcvflag) ; 

_dos_gettime(&timein) ; 
second  »  timein. second; 

clearFlag  =1;  /*  clear  receiving  buffer  after  read  */ 

AsatID  *  ASAT2; 

/* 

Loop ,  terminated  by : 

ESC  key, 
time  end, 

simulator  #1  termination  or 
simulator  #2  termination 

*/ 

while  ( (cntlkey  !=  ESCKEY  j  j  numpktl  >  0  {  j  numpkt2  >  0)  && 
lendrun) 

{ 

if  (kbhitO)  cntlkey  =  getch()  ; 

if  (cntlkey  ==  ESCKEY)  netflag  =  USERSTOP; 
if  (cntlkey  ==  ESCKEY  | |  endrun) 

{ 

Rcvflag  =  FALSE; 

cRcvFlag( Rev flag) ;  /*  stop  receive  packets  */ 

} 

endrun  =  check_time (& second ) ;  /*  check  end  of  time  */ 

if  (endrun) 

netflag  =  NORMALEND; 
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/* 

get  the  packet  counter  in  the  receivir^;  buffer  from 
either  simulator 

*/ 

numpktl  =  numpkt2  =0; 

if  (AsatID  ==  ASAT2) 

{ 

AsatID  =  ASATl; 

numpkt  =  numpktl  =  cGetNumPkt (AsatID) ; 

if  (numpkt  >  1) 

firstl  =  FALSE; 

else 

firstl  =  TRUE; 

if  (numpkt  >  maxinQl) 
maxinQl  =  numpkt; 

if  (numpkt  <  mininQl  &&  numpkt  >0  &&  icntl  >  10  && 
! kbhit ( ) ) 

mininQl  =  numpkt; 

} 

else 

if  (AsatID  ==  ASATl) 

{ 

AsatID  =  ASAT2; 

numpkt  =  numpkt2  =  cGetNumPkt (AsatID) ; 

if  (numpkt  >  1) 

first2  =  FALSE; 

else 

first2  =  TRUE; 

if  (numpkt  >  maxinQ2) 
maxinQ2  =  numpkt; 

if  (numpkt  <  mininQ2  &&  numpkt  >  0  &&  icnt2  >  10  && 
! kbhit ( ) ) 

mininQ2  =  numpkt; 

} 
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/*  in  case  of  the  receiving  buffers  are  not  empty  */ 


if  (numpktl  >0  J  j  nump)ct2  >  0) 

{ 

if  ( ( ! trxstatusl  &&  AsatID  ==  ASATl)  || 

(!trxstatus2  &&  AsatID  ==  ASAT2) ) 

{ 

/* 

get  time  stamp,  check  time  stamp  errors,  and 
compute  the  packet  transmitting  times 

*/ 

if  (clearFlag) 

{ 

return_code  = 

cGetTimeQPtr (AsatID, &timeQl , &timeQ2) ; 

if  (AsatID  =*  ASATl  &&  i trxstatusl) 

{ 

if  (firstl) 

{ 

firstl  =  FALSE; 

Atimel  =  Atime2  =  Atimel  =  *timeQl; 

} 

else 

( 

Atimel  *  Atime2 ; 

Atime2  =  Atimel; 

Atimel  =  *timeQl; 

) 

if  (numpktl  >  1  &&  Atimel  <  Atime2  && 

Atimel  >  Atimel) 

{ 

errorcountl++ ; 

nexttimel  = 
Atime2+delaytimel+asaterrorl ; 

) 

else 

nexttimel  =  *timeQl+delaytimel ; 

if  (nexttimel  <  *timeQl) 
roundl  =  TRUE; 

else 

roundl  =  FALSE; 

) 
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if  (AsatID  =*=  ASAT2  &&  !trxstatus2) 

{ 

if  (first2) 

{ 

first2  =  FALSE; 

Btimel  =  Btiine2  =  BtimeS  =  *tiineQl; 

} 

else 

{ 

BtimeS  =  Btiine2; 

Btiine2  =  Btimel; 

Btimel  =  *timeQl; 

} 

if  (nvimpkt2  >  1  &&  Btimel  <  Btime2  && 

Btimel  >  Btimel) 

{ 

errorcount2++ ; 

nexttime2  = 
Btime2+delaytime2+asaterror2 ; 

} 

else 

( 

nexttime2  =  *timeQl+de laytime 2 ; 

} 

if  (nexttime2  <  *timeQl) 
round2  =  TRUE; 

else 

round!  =  FALSE; 

} 

} 

/*  get  1  packet  from  receiving  buffer  of  either 
simulator  */ 


pktlen  =  0; 

if  ((AsatID  ==  ASATl  &&  Itrxstatusl  &&  numpktl)  j  j 
(AsatID  ==  ASAT2  &&  !trxstatus2  &&  numpkt!)) 

{ 

pktlen  =  cGetOnePkt (&Pkt, AsatID, clearFlag) ; 

/*  if  packet  length  exceeds  the  max  length 
setting  */ 

if  (pktlen  >  MAXLEN) 

{ 

pktlen  *  MAXLEN; 

printf ("Maximum  packet  length  setting 
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state 


for 


/* 

setup 

trx  flag, 
packet  lenth, 
receiving  count, 
packet  pointer,  and 
check  the  simulator 
simulator  #1 

*/ 

if  (AsatID  ==  ASATl  &&  pktlen  >  0) 

{ 

trxstatusl  =  TRUE; 

pktlenl  =  pktlen; 

icntl++; 

Pktl  =  Pkt; 

/*  check  if  simulator  #1  is  dead  */ 

/*  pktlen  >  50  guarantees  the  packet  type 
is  not  type  0  or  1  */ 

if  (Pkt->inp[ASATSTATEBYTE]  &  DEADMARK  && 
pktlen  >  50) 

{ 

endrun  ==  TRUE; 
netflag  =  ASATIDEAD; 

) 

} 

/* 

setup 

trx  flag, 
packet  lenth, 
receiving  count, 
packet  pointer,  and 

check  the  simulator  state  for  the 
simulator  #2 

*/ 
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if  (AsatID  *=  ASAT2  &&  pktlen  >  0) 

{ 

trxstatus2  =  TRUE; 
pktlen2  =  pktlen; 
icnt2++; 

Pkt2  =  Pkt; 

/* 

check  if  simulator  #2  is  dead 
pktlen  >  50  guarantees  the  packet  type 
is  not  type  0  or  1 

*/ 

if  (Pkt->inp[ASATSTATEBYTE]  &  DEADMARK  && 
pktlen  >  50) 

{ 

endrun  =  TRUE; 
netflag  =  ASAT2DEAD; 


/*  in  case  there  is  a  packet  to  be  transmitted  */ 

if  (trxstatusl  j  |  trxstatus2) 

{ 

cGetTimeCountO  ; 
timecount  =  *timeptr; 

/*  check  time  duration  for  packet  coming  from 
simulator  #1  */ 

if  (trxstatusl  &&  Itimeoutl) 

{ 

if  (delaytimel  ==  0) 
timeout 1  *  TRUE; 

if  (timecount  <  Atimel  &&  timecount  >  nexttimel 
&&  roundl) 
timeoutl  =  TRUE; 

else 

if  (timecount  >  nexttimel  &&  1 roundl) 
timeoutl  =  TRUE; 
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if  (timeoutl  &&  loutflagl) 

{ 

outflagl  =  TRUE; 

timedif  = 
get_di f  f _t ime ( nextt ime 1 , t imecoant ) ; 
plusl++; 

if  (timecount  >  nextt imel) 

{ 

sumtl  +=  (double)  timedif; 
sumplusl  +=  (double)  timedif; 

} 

} 

else 

if  (Itimeoutl  &&  loutflagl) 

{ 

timedif  = 
get_diff_t ime (timecount , nextt imel ) ; 
timef  =  (float)  timedif; 

if  (timef  <  thresholdl) 

( 

outflagl  =  TRUE; 
timeoutl  =  TRUE; 
minusl++; 

summinusl  +=  (double)  timedif; 
sumtl  -=  (double)  timedif; 

} 

} 

) 

/*  check  the  time  duration  for  packet  from 
simulator  #2  */ 

if  (trxstatus2  &&  !timeout2) 

{ 

if  (delaytime2  ~  0) 
timeout 2  =  TRUE; 

if  (timecount  <  Btimel  &&  timecount  >  nexttime2 
&&  round2) 
timeout2  =  TRUE; 

else 

if  (timecount  >  nexttime2  &&  Iround2) 
timeout2  =  TRUE; 
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if  (timeouta  &&  !outflag2) 

{ 

outflag2  =  TRUE; 

tlnedif  = 
get_dif  f_tiine  (nexttiine2 ,  timecount)  ; 
plus2++; 

if  (timecount  >  nexttime2} 

{ 

sumt2  +=  (double)  timedif; 
sumplus2  +=  (double)  timedif; 

} 

) 

else 

if  (!timeout2  &&  !outflag2) 

{ 

timedif  = 
get_di f f_t ime (timecount , nextt ime2 ) ; 
timef  =  (float)  timedif; 

if  (timef  <  threshold2) 

{ 

outflag2  =  TRUE; 
timeout2  =  TRUE; 
minus2++ ; 

summinus2  +=  (double)  timedif; 
sumt2  -=  (double)  timedif; 

) 

} 

} 


Aviation  Test  Plan  Report 


Page  13S 


/*  Preparing  and  transmitting  a  packet  */ 

if  (timeoutl  | {  timeout2) 

{ 

if  (timeoutl  &&  trxstatusl) 

{ 

/*  copy  from  receiving  buffer  to 
transmitting  buffer  */ 

for  (i=6;  i<pktlenl;  i++) 

Pkttrxptr[i]  =  Pktl->inp[ i] ; 

pktlenl  =  (int)  max(pktlenl,MINLiEN)  ; 
total  packet  length  =  number_byte  = 

pktlenl ; 

trxflag  =  ASATl; 

} 

else 

if  (timeout2  &&  trxstatus2) 

{ 

/*  copy  from  the  receiving  to  transmitting 
buffer  */ 


for  (i=6;  i<pktlen2;  i++) 

Pkttrxptr[i]  =  Pkt2->inp[i] ; 


} 


pktlen2  =  (int)  max(pktlen2 ,MINLEN) ; 
total_packet_length  =  number_byte 

pktlen2 ; 


trxflag  =  ASAT2; 


if  (timeoutl  j |  timeout2) 

{ 

return_code  =  cXmitl (  total_packet_length, 

number_byte , 

flags, 

reqid, 

Pkttrxptr , 

&nregid, 

AsatIDO, 
newaddflag) ; 
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if  (trxflag  ==  ASATl) 

{ 

trxcntl++; 

trxstatusl  =  FALSE; 
timeoutl  =  FALSE; 
outflagl  =  FALSE; 

\ 

j 

else 

if  (trxflag  ==  ASAT2) 

{ 

trxcnt2++ ; 
trxstatus2  =  FALSE; 
timeout2  =  FALSE; 
outflag2  =  FALSE; 

) 


/* 

Now,  trial  is  ended.  It  needs  to  broadcast  the  ending 
information  by  sending  a  packet  type  10  using  each  Asat 
simulator's  address 

*/ 


Pkttrxptr[ASATTYPEBYTE]  =  PKTTYPEIO; 
total_packet_length  =  number_byte  =  294; 

for  (i=0;  i<6;  i++)  /*  copy  Asat  #1  address  */ 

Pkttrxptr [ i ]  =  asatl_address [ i ] ; 


return_code  =  cXmitl(  total_packet_length, 

number_byte , 

flags, 

reqid, 

Pkttrxptr, 

&nregid, 

AsatIDO, 
newaddflag) ; 


for 


(i=0;  i<6;  i++)  /*  copy  Asat  #2  address  */ 

Pkttrxptr [i]  =  asat2_address[i] ; 
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return_code  =  cXinitl(  total_packet_length, 

number_by te , 

flags, 

reqid, 

Pkttrxptr, 

fiinregid, 

AsatIDO, 
newaddflag) ; 


return_code=cResetAdapter ( ) ;  /*  reset  Ether  Link  II  adapter  */ 
/*  prepare  for  data  passing  to  the  program  'posdelay.c'  */ 


args [ 0 ] 
args[l] 
args [ 2 ] 


"posdelay” ; 

ultoa(trxcntl,buffer[l] , RADIX) ; 
ultoa(trxcnt2,buffer[2] ,RADIX) ; 


args [ 3 ] 
args [ 4 ] 
args [ 5 ] 
args [ 6 ] 


itoa(plusl, buffer [3] , RADIX) ; 
itoa (plus2 ,buf fer[4] , RADIX) ; 
itoa (minusl, buffer [5] , RADIX) ; 
itoa (minus2 , buffer [6] , RADIX) ; 


args [ 7 ] 
args [ 8 ] 
args [ 9 ] 
args [10] 
args [11] 


gcvt (sumplusl,PRECISION,buffer[7] ) ; 
gcvt (sumplus2,PRECISION,buffer[8] ) ; 
gcvt (summinusl, PRECISION, buffer[9] ) ; 
gcvt (summinus2, PRECISION, buffer [10] ) ; 
itoa (seconds, buffer [11] , RADIX) ; 


args [12] 
args [13] 
args [14] 
args [15] 
args [16] 


*  argv [ 7 ] ; 

/* 

trial 

number 

*/ 

=  argv[8] ; 

/* 

delay 

on  Asat 

#1 

*/ 

=  argv[9] ; 

/* 

delay 

on  Asat 

#2 

*/ 

=  itoa ( net flag , buffer [ 15 ] , RADIX) ; 
=  NULL; 


/*  Call  posdelay.exe  */ 


) 


I 


if 

{ 

} 


(return_code=spawnv (P_WAIT, "posdelay.exe" , args) 

printf ( "Spawn  error;  %d  for 

%s\n" , return_code , args [ 0 ] )  ; 


<  0) 

program 
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/**************************************************************** 

*  init_parnis;  Initialize  the  global  variables.  * 

*  Return  :  None  * 

h**********************************************  *************  *****/ 


void  ini t_panns  (void) 


newaddflag 
firstl 
outflagl 
timeout 1 
trxstatusl 
Rev flag 


FALSE ; 
first2  = 
outflag2  = 
timeout 2  = 

trxstatus2= 
TRUE  ; 


TRUE; 
FALSE; 
FALSE ; 
FALSE ; 


errorcountl  =  errorcount2  =0; 

icntl  =  icnt2  =0; 

maxinQl  =  maxinQ2  =0; 

mininQl  =  mininQ2  =99; 

minusl  =  minus2  =0; 

plusl  =  plus2  =  0; 

sumplusl  =  sumplus2  =0; 

summinusl  =  summinus2  =  0; 

sumtl  =  sumt2  =0; 

trxcntl  =  trxcnt2  =0; 

) 


y***************************************************************** 

*  get_diff_time;  get  the  difference  between  two  time  counter  * 

*  readings.  * 

*  Return  ;  elapsed  time  reading  * 

******************************************************************y 


unsigned  long  get_diff_time( unsigned  long  timel, unsigned  long 
time2) 

{ 

unsigned  long  devtime, differ, remainder; 
double  tl,t2; 


if  (time2  >  timel) 

differ  =  time2-timel; 

else 

{ 

tl  =  (double)  timel/256/256; 
t2  =  tl*256*256; 

remainder  =  timel- (unsigned  long)  t2; 
tl  =  (double)  (256*256-1) -tl+l; 
t2  =  tl*256*256+remainder; 
devtime  =  (unsigned  long)  t2; 
differ  =  devtime+time2 ; 

) 

return (differ) ; 
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9 . 0  Posdelay.  c 


Program  Cover  Sheet 

Program  Name:  posdelav.e  Latest  Version:  1.1  Date:  9-15-1991 
Languages:  Q  Manufacturer:  Microsoft  Co.  Version:  5.1 


Description: 

This  program  serves  to  pass  and  compute  parameters  associated  with 
data  saving.  It  receives  parameters  from  the  program  delay.exe  and 
passes  the  parameters  to  the  program  saver.exe.  The  computations 
performed  in  this  program  include  the  average  time  delay  error  and 
the  time  delay  error  range  for  each  ASAT  simulator. 

/It**************************************************************** 
*  * 

*  posdelay. c  :  A  program  receives  parameters  from  delay.exe,  * 

*  computes  the  average  delay  errors,  then  passes  * 

*  parameters  to  saver.exe.  * 

*  Predecessor:  calling  program  -  delay.exe  * 

*  Successor  :  called  program  -  saver.exe  * 

*  * 

******************************************************************/ 
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/**************** 
*  Includes  * 

****************/ 


/*  standard  include  files  */ 


# include  <graph.h> 

# include  <process.h> 
# include  <stdio.h> 

# include  <stdlib.h> 

# include  <string.h> 

# include  <tiine.h> 


yifklfkltifkifkliitlfklilelt 

/*  Constants  * 

ifk-k-klfkifklfklfiilfklfit  y 


#define  RADIX 
#define  PRECISION 
#define  MILISEC 


10  /*  base  of  integer  */ 

10  /*  precision  of  converting  a  float  #  */ 

0.838*1191.5636  /*  time  counter  reading 

conversion  */ 


*  Arguments  passed  from  delay.exe:  * 


argv[l] 
argv [ 2 ] 
argv [ 3 ] 

argv [ 4 ] 

argv[5] 

argv [ 6 ] 

argv[7] 

argv [ 8 ] 

argv[9] 

argv [10] 

argv [11] 
argv [12] 
argv [13] 
argv [14] 
argv [15] 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

**************** 


=  total  #  packets  retransmitted  for  simulator  #1 
=  total  #  packets  retransmitted  for  simulator  #2 
=  total  #  packets  retransmitted  above  the  time 
boundary  for  S.  #1 

=  total  #  packets  retransmitted  above  the  time 
boundary  for  S.  #2 

=  total  #  packets  retransmitted  below  the  time 
boundary  for  S.  #1 

=  total  #  packets  retransmitted  below  the  time 


* 

* 

* 

* 

* 

* 

* 

* 

* 


boundary  for  S.  #2 

total  delay  error  above  the  time  boundary  for 
simulator  #1 

total  delay  error  above  the  time  boundary  for 
simulator  #2 

total  delay  error  below  the  time  boundary  for 
simulator  #1 

total  delay  error  below  the  time  boundary  for 
simulator  #2 

actual  trial  time  in  seconds 
trial  number 

delay  time  on  simulator  #1  in  milliseconds 
delay  time  on  simulator  #2  in  milliseconds 
network  termination  flag 
**************************************************y 
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void  inaln(int  argc,char  *argv[]) 

{ 

int  i; 

/* 

data  converting  buffers, 
int->string, 
unsigned  long->string, 
float->string 

*/ 

char  *args[19];  /*  arguments  passing  pointer  array  */ 

char  buffer [19] [15] ;  /*  data  converting  buffers  */ 

char  *stcpstr;  /*  data  converting  stop  string  pointer*/ 

/*  variables  for  both  simulator  #1  and  #2  */ 

int  minusl;  /*  #  packets  sent  to  Asat  #1  below  time 

boundary  */ 

int  minus2 ;  /*  #  packets  sent  to  Asat  #2  below  time 

boundary  */ 

int  plusl;  /*  #  packets  sent  to  Asat  #1  above  time 

boundary  */ 

int  plus2;  /*  #  packets  sent  to  Asat  #2  above  time 

boundary  */ 

double  aveminusl;  /*  ave  error  below  time  boundary  for  Asat 

#1  */ 

double  aveminus2 ;  /*  ave  error  below  time  boundary  for  Asat 

#2  */ 

double  aveplusl;  /*  ave  error  above  time  boundary  for  Asat 

#1  */ 

double  aveplus2;  /*  ave  error  above  time  boundary  for  Asat 

#2  */ 

double  avetl;  /*  total  average  delay  error  for  Asat  #1  */ 

double  avet2;  /*  total  average  delay  error  for  Asat  #1  */ 

double  sumtl;  /*  total  delay  error  for  Asat  #1  */ 

double  sumt2;  /*  total  delay  error  for  Asat  #2  */ 

double  summinusl;  /*  total  delay  error  below  time  boundary 

for  #1  */ 

double  summinus2;  /*  total  delay  error  below  time  boundary 

for  #2  */ 

double  sumplusl;  /*  total  delay  error  above  time  boundary 

for  #1  */ 

double  sumplus2;  /*  total  delay  error  above  time  boundary 

for  #2  */ 

unsigned  long  trxcntl;  /*  total  packets  transmitted  to 

Asat  #1  */ 

unsigned  long  trxcnt2 ;  /*  total  packets  transmitted  to 

Asat  #2  */ 

/*  get  the  arg\iments  passed  by  'delay.exe'  */ 
if  (argc  <  16) 
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) 


printfC'Too  few  arguments  passed  to  %s\n'',argv[0] )  ; 
exit(0}  ; 


trxcntl  =  strtoul (argv[l] , &stopstr, 0)  ; 
trxcnt2  *  strtoul (argv[2 ] ,&stopstr,0) ; 

plusl  =  atoi (argv[3] ) ; 
plus2  =  atoi (argv[4] ) ; 
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minusl  =  atoi (argv[5] ) ; 

ininus2  =  (argv[6] )  ; 

sumplusl  =  strtod(argv[7] ,&stopstr) ; 
suinplus2  =  strtod(argv[8] ,  fistopstr)  ; 

summinusl  =  strtod(argv[9] ,&stopstr) ; 
suinininus2  =  strtod(argv[10] ,  fiistopstr)  ; 

sumtl  =  sumplusl-summinusl; 
sumt2  =  suinplus2“suinminus2 ; 

if  (mininQl  ==  99) 
mininQl  =  0; 

if  (mininQ2  ==  99) 
mininQ2  =  0; 

if  (trxcntl  >  0) 

avetl  =  sumtl/ (double)  {trxcntl*MILISEC) ; 

else 

avetl  =  0; 
if  (plusl  >  0) 

aveplrsl  =  (double)  sumplusl/ (double)  (plusl*MILISEC) ; 

else 

aveplusl  =  0; 
if  (minusl  >  0) 

aveminusl  =  (double)  summinusl/ (double)  (minusl*MILISEC) ; 

else 

aveminusl  =0; 
if  (trxcnt2  >  0) 

avet2  =  sumt 2/ (double)  (trxcnt2*MILISEC) ; 

else 

avet2  =  0; 
if  (plus2  >  0) 

aveplus2  =  (double)  sumplus2/ (double)  (plus2*MILISEC) ; 

else 

aveplus2  =  0; 
if  (minus2  >  0) 

aveminus2  =  (double)  sumroinus2/ (double)  (minus2*MILISEC) ; 

else 

aveminus2  =  0; 
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/*  Prepare  argiments  to  pass  to  'saver.exe'  */ 


args[0]  = 
args [ 1 ]  = 

args [ 2 ]  = 

args [ 3 ]  = 
args [ 4 ]  = 
args[5]  = 
args [6]  = 
args [7]  = 
args [ 8 ]  = 
args [ 9 ]  = 
args [ 10] 
args [ 11] 
args [12] 
args [13] 
args [ 14 ] 
args [15] 
args [16] 
args [ 17 ] 
args [18] 


"saver” ; 

argv[13];  /*  delay  on  simulator  #1  in 

milliseconds  */ 

argv[14];  /*  delay  on  simulator  #2  in 

milliseconds  */ 

argv[ll];  /*  actual  trial  time  in  seconds  */ 

ultoa (trxcntl, buffer [4 ], RADIX) ; 
ultoa (trxcnt2 ,buf fer[5] , RADIX) ; 
itoa(plusl,buffer[6] , RADIX) ; 
itoa(plus2, buffer [7] , RADIX) ; 
itoa{minusl,buffer[8] , RADIX) ; 
itoa(minus2,buffer[9] ,RADIX) ; 
gcvt(aveplusl, PRECISION, buffer [10] ) ; 
gcvt(avep'’us2,PRECISI0N,buffer[ll] )  ; 
gcvt(aveminusl, PRECISION, buffer[ 12] )  ; 
gcvt (aveminus2, PRECISION, buffer[ 13 ] ) ; 
gcvt(avetl, PRECISION, buffer [14] ) ; 
gcvt (avet2, PRECISION, buffer [15] )  ; 
argv[12];  /*  trial  number  */ 

argv[15];  /*  network  termination  flag  */ 

NULL; 


for  (i=0;  i<3;  i++) 
printf ("\07") ; 


/*  Call  saver.exe  */ 


if  (spawnv(P_WAIT,  "saver . exe" , args)  <  0) 

printf ( "Error  !!  cannot  invoke  saver.exe"); 

} 
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10.0 


Saver,  c 


Progreun  cover  sheet 

Program  name  ; SAVER. C  Latest  Version:  1.0  Date:  08/30/91 

Languages:  C  Manufacturer:  Microsoft  Version  :  6.0 

Description: 

The  program  is  the  user  interface  of  the  intersimulator  delay 
study  software.  The  header  file  Delay. h  is  included  with  it.  It 
is  not  directly  executed  from  DOS.  Instead  it  is  spawned  as  a 
process  by  predelay.exe  and  receives  all  the  test  parameters  and 
test  results  of  a  trial  from  predelay.exe.  The  program  informs  the 
user  when  the  trial  has  been  completed  and  displays  the  results  on 
the  screen.  The  program  then  asks  the  user  if  the  data  is  to  be 
saved.  If  so,  the  user  must  supply  a  file  name.  If  the  specified 
file  name  is  already  in  use,  saver.exe  asks  for  an  alternate  file 
name  or  permission  to  overwrite  the  existing  file.  All  file  names 
are  limited  to  8  characters  and  will  be  created  with  a  .LOG 
extension  in  the  current  directory.  After  the  data  is  saved, 
control  returns  to  predelay.exe ,  which  in  turn  returns  to 
intersim.exe .  The  program  validates  user  responses. 


/ 

* 

* 

* 

■k 

* 

* 

* 

* 


***************************************************************** 

Module  :  saver. c  * 

* 

Programmer  :  Sandhya  Chandarlapaty  * 

* 

Purpose  :  This  module  provides  a  graphic  user  interface  * 

for  the  Intersimulator  delay  study  conducted  * 
in  the  Aviation  Trainer  Research  Laboratory.  * 

* 


* 

* 

* 


Compilation 


This  module  must  be  compiled  using  the 
Microsoft  6.0  compiler  and  linker. 


* 

★ 

★ 


*  Usage  :  spawned  by  posdelay.c 

* 


* 

* 


* 

* 

* 

* 

* 


Other  Info  :  The  module  is  spawned  by  the  posdelay  module.  * 
It  saves  the  trial  results  to  a  file  and  * 

displays  them  on  the  screen.  It  returns  to  * 
intersim.c  * 

*****************************************************************/ 
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y-k-kitlkltlflfiflfk* 

*  includes  * 

*A*A****A4r4t*^ 

# include  <stdio.h> 

# include  <ctype.h> 

# include  <graph.h> 

# include  <stdlib.h> 

# include  <string.h> 

# include  <tiae.h> 
#include  <process.h> 
# include  "delay. h” 


y**************** 

*  globals  * 

******-k***1t**-k1fk*y 


int 


tr  ial_nuinber , 
asatl_2 , 

asat2_l , 

trial_tiine, 

network_flag, 

inin=*0,  sec®0; 


/*  current  trail  number  */ 

/*  pointer  to  delay  from  asat  1  to 
asat  2  */ 

/*  pointer  to  delay  from  asat  2  to 
asat  1  */ 

/*  pointer  to  trial  time  for  delay 
study  */ 

/*  indicates  network  interrupt  flag 
*/ 

/*  trial  duration  in  minutes  and 
seconds  */ 


unsigned  long  max__sent_l, 

max__sent_2 , 
plus_l, 
plus_2 , 
minus_l, 
minus  2 ; 


/*  maximum  packets  transmitted  to 
asatl  */ 

/*  maximum  packets  transmitted  to 
asat2  */ 

/*  packets  sent  to  asatl  with  extra 
delay  */ 

/*  packets  sent  to  asat2  with  extra 
delay  */ 

/*  packets  sent  to  asatl  with  less 
delay  */ 

/*  packets  sent  to  asat2  with  less 
delay  */ 


double 


max_plus_error_l , 

/ 

*  upper  range  of 
delay  to  Asti*/ 

error 

in 

max_minus_error_l , 

/* 

lower  range  of 
delay  to  Asti*/ 

error 

in 

ave_error_l , 

/* 

average  error  in 
asatl  */ 

delay 

to 

max_plus_error_2 , 

/* 

upper  range  of 
delay  to  Ast2*/ 

error 

in 

max_minus_error_2 , 

/* 

lower  range  of 
delay  to  Ast2*/ 

error 

in 

ave_error_2 ; 

/* 

average  error  in 
asat2  */ 

delay 

to 
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/It*************** 

*  Forwards  * 

It****************/ 

char  alert_window(char  *) ; 

void  hit_any(int  color, char  *buffer,int  text); 
void  9etstr(char  buf[],int  len,int  x,int  y) ; 
void  file_data(FIIiE  *fptr)  ; 
void  f ile_header (FILE  *fptr) ; 

void  paint (short  color, short  xl, short  yl, short  x2, short  y2) ; 
void  heading (int  color) ; 

void  draw_border ( int  xl,int  yl,int  x2,int  y2) ; 
void  show(int  x,int  y,char  *buffer) ; 
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/***************************************************************** 


* 

It 

set_values ( ) 

* 

if 

* 

PURPOSE 

:  takes  each  values  from 

the  argument 

received  by 

* 

the  program,  and  assigns  them  to  global  * 

* 

it 

variables 

* 

■k 

ASSUMES 

;  nothing 

k 

* 

k 

CALL 

:  set_values (args) ; 

* 

if 

k 

INPUT  PARAMETERS  :  args  —  pointer 

to  character 

string  with* 

k 

k 

received 

parameters 

ic 

if 

k 

k 

FUNCTION 

CALLS (  other  than  standard 

functions  ) 

:  none  * 

k 

k 

RETURNS  : 

nothing 

9m 

k 

it 

k 

SIDE  EFFECTS  :  all  globals  are  set 

* 

*  * 
•k^:k-k‘k-k'k-k'k-kic'k'kifk‘k'k'kififkl€it1e-k1fkii1tifk1t1e1tieifk'kitifkifkifk1tifk'k'k'k'kit'k'k'k1t1e-kie1e‘k1fk1e1c^ 

void  set_values (char  *argv[]) 

{ 

/* 

convert  each  of  the  parameters  from  string  form 
into  int/float/long  resp. 

*/ 

asatl_2  =  atoi(argv[l] ) ; 
asat2_l  =  atoi(argv[2] ) ; 

trial_time  =  atoi (argv[3 ] ) ; 

max_sent_l  =  atol (argv(4] ) ; 
max_sent_2  =  atol ( argv [ 5 ] ) ; 

plus_l  =  atol (argv [6] ) ; 
plus_2  =  atol (argv(7] ) ; 

minus_l  =  atol (argv[8] ) ; 
minus_2  =  atol (argv[9] ) ; 

max_plus_error_l  =  atof (argv[10] ) ; 
max_plus_error_2  =  atof (argv [11] ) ; 
max_minus_error_l  =  atof ( argv [ 12 ] ) ; 
max_minus_error_2  =  atof (argv [13] ) ; 

ave_error_l  =  atof (argv[l4] ) ; 
ave_error_2  =  atof (argv[ 15] ) ; 

trial_number  =  atoi (argv [ 16] ) ; 
network_flag  =  atoi (argv[ 17] ) ; 

) 


Aviation  Test  Plan  Report 


Page  ISO 


****************************************************************** 

*  done_window { )  * 

*  * 

*  PURPOSE  :  draws  the  done_window  and  informs  the  user  that  the* 

*  trial  has  been  completed  * 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  :  done_window ( ) ;  * 

*  * 

*  INPUT  PARAMETERS  :  none  * 

*  * 

*  FUNCTION  CALLS (  other  than  standard  functions  )  :  * 

*  * 

*  paint(color,xl,yl,x2,y2)  * 

*  heading (color) ;  * 

*  draw_border (xl,yl,x2,y2)  * 

*  hit_any (color, buf, color)  * 

*  show (x,y, buf) ;  * 

*  * 

*  RETURNS  :  nothing  * 

*  * 

*  SIDE  EFFECTS  ;  none  * 

******************************************************************/ 

void  done_window(void) 

{ 

_clearscreen(_GCLEARSCREEN) ; 
paint(WHITE,0,0,700,600)  ; 
heading (GREEN) ; 
paint(GREEN, 140, 150,490,250) ; 
draw_border(140,l50,490,250) ; 

_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (_GREEN) ; 

show(13,25,”  Trial  is  complete  now  ”) ; 

hi t_any (GREEN,  ”  Hit  any  key  for  results  ...  '',BRIGHTWHITE)  ; 

} 
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y***************************************************************** 

*  result_window ( )  * 

*  * 

*  PURPOSE  :  draws  the  result_window,  displays  the  trial  results* 

*  * 

*  ASSUMES  :  nothing  * 

*  * 

*  CALL  ;  result_window  ( ) ;  * 

*  * 

*  INPUT  PARAMETERS  :  none  * 

*  * 

*  FUNCTION  CALLS {  other  than  standard  functions  )  :  * 

*  * 

*  paint (color, xl,yl,x2,y2)  * 

*  heading (color) ;  * 

*  draw__border  (xl,yl,x2,y2)  * 

*  hit_any (color, buf, color)  * 

*  show(x,y,buf ) ;  * 

*  * 

*  RETURNS  ;  nothing  * 

*  * 

*  SIDE  EFFECTS  :  none  * 

******************************************************************/ 

void  result_window(void) 

{ 

char  buffer [20]; 

int  row  =  7,  coll  =  5,  col2  =  40,col3  =  60; 

min  =  trial__time  /  60;  /*  convert  trial  time  into  mins,  secs*/ 

sec  =  trial_time  %  60; 

_setvideomode (_VRES16COLOR) ; 

_clearscreen(_GCLEARSCREEN) ; 

_wrapon(_GWRAPON) ; 
paint (WHITE, 0,0, 700, 600) ; 
heading (BLUE) ; 
paint(BLUE,15,75,600,400)  ; 
draw_border(15,75, 600,400)  ; 

_settextcolor (BRIGHTWHITE) ; 

_setbkcolor (_BLUE) ; 
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/*  network_flag  indicates  the  manner  in  which  the  trial  ended*/ 
/*  a  different  message  is  displayed  based  on  its  value  */ 

sw itch ( network_f 1 ag ) 

{ 

case  0  : 

{ 

show (row, 5, "Trial  termination  status  :  NORMAL"); 
break; 

) 

case  1  : 

{ 

show (row, 5, "Trial  termination  status  :  ASAT  1 

CRASHED" ) ; 

break ; 

) 

case  2  : 

{ 

show (row, 5, "Trial  termination  status  :  ASAT  2  DEAD") ; 
break; 

) 

case  9  : 

{ 

show (row, 5, "Trial  termination  status  ;  USER 
TERMINATED") ; 

break; 

} 

} 

/*  display  trial  results  in  two  columns  */ 
row  =  row  +2; 

show (row, 38, "ASAT  1");  /*  column  headers  */ 

show ( row, 58 , "ASAT  2 " ) ; 

row  +=  1; 

show (row, coll, "Delay  induced") ; 
sprintf (buffer, "%d",asatl_2) ; 
show ( row, col2, buffer) ; 
sprintf (buffer, "%d" , asat2_l) ; 
show (row, col3, buffer) ; 

row  +=  2 ; 

show(row, coll, "Trial  time  (minrsec)"); 
sprintf (buffer, "%d; %d" ,min, sec) ; 
show(row,col2, buffer) ; 
show(row,col3,buffer) ; 
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row  +=  2 ; 

show ( row , col 1 , ” Packets  sent” ) ; 
sprintf  (buffer,  ”%d”  ,inax_sent_l)  ; 
show (row, col2, buffer) ; 
sprintf  (buffer,  ”%d”  ,niax_sent_2)  ; 
show(row, col 3 , buffer) ; 

row  +=  2 ; 

show (row, coll, "Packets  sent  with  more  delay"); 

sprintf (buffer, "%d" ,plus_l) ; 

show (row, col2 .buffer) ; 

sprintf (buffer, "%d" ,plus_2) ; 

show(row, col3 .buffer) ; 

row  +=  2 ; 

show (row, coll, "Packets  sent  with  less  delay"); 

sprintf (buffer, "%d" ,minus_l) ; 

show (row, col2, buffer) ; 

sprintf (buffer, "%d" ,minus_2) ; 

show (row, col 3 .buffer) ; 

row  +=  2 ; 

show(row, coll, "Upper  range  of  delay  error"); 
sprintf (buffer, "%f " ,max_plus_error_l) ; 
show(row,col2, buffer) ; 
sprintf  (buffer,  "%f  "  ,max_plus_^error_2)  ; 
show (row, col 3 .buffer) ;  " 

row  +=  2 ; 

show(row, coll, "Lower  range  of  delay  error"); 
sprintf (buffer, "%f " ,max_minus_error_l) ; 
show(row, col2 .buffer) ; 

sprintf (buffer, "%f " ,max_minus_error_2) ; 
show (row, col 3 .buffer) ; 

row  +=  2 ; 

show(row, coll,  "Average  delay  e'-ror")  ; 
sprintf (buffer, "%f " , ave_error_l) ; 
show (row, col 2, buffer) ; 
sprintf (buffer, "%f " , ave_error_2) ; 
show(row,col3, buffer) ; 

row  +=  2 ; 

hit_any (BLUE, "Hit  any  key  to  save  results  . . " , BRIGHTWHITE) ; 
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*  hit_any()  * 


* 

★ 

■k 

PURPOSE 

:  gets  a  keyhit  from  keyboard  for  continuation 

* 

* 

k 

purposes 

* 

it 

k 

k 

ASSUMES 

:  nothing 

★ 

it 

k 

k 

CALL 

:  hit_any (color, buf, text) ; 

it 

if 

k 

INPUT  PARAMETERS  :  int  color  —  background  color 

it 

k 

text  —  text  color 

it 

k 

* 

buf  —  text  to  be  displayed  in  the  window* 

k 

if 

FUNCTION 

CALLS (  other  than  standard  functions  )  : 

k 

if 

k 

paint ( color , xl , yl , x2 , y2 ) 

k 

k 

draw_border (xl,yl,x2,y2) 

k 

k 

show(x,y,buf ) ; 

k 

it 

★ 

■k 

RETURNS  : 

nothing 

k 

it 

* 

SIDE  EFFECTS  :  none 

k 

•^ie-k-ii-klfk-klilfklfiiltitlfklfk-k'kifk-k-kifk'klfk-k-k-k-k-klfklfklfk'kifkitieitieltieie-k-klfk'k-k-k-kle-klc-k-kicicy 

void  hit_any(int  color, char  *buffer,int  text) 

{ 

_displaycursor(_GCURSOROFF) ; 

_settextcolor (text) ; 
paint (color, 140,410,490,460) ; 
draw_border(140,410,490,460)  ; 
show(28 , 25, buffer) ; 

getch ( ) ; 

_setvideoinode(_DEFAULTMODE)  ; 

} 
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/***************************************************************** 

*  f ile_window( )  * 

*  * 

draws  the  file  window,  gets  a  file  name  from  user  * 
for  saving  the  file,  alerts  user  if  file  already  * 
exists,  gets  a  new  file  name  or  overwrites  it  based* 
on  user's  choice,  and  writes  to  file  * 

* 


*  PURPOSE 

* 

★ 

* 

* 

*  ASSUMES 

* 

*  CALL 

* 


nothing 
f ile_window( ) ; 


* 

* 

* 

★ 


*  INPUT  PARAMETERS  :  none 

* 

*  FUNCTION  CALLS (  other  than  standard  functions  ) 

* 

*  paint (color, xl,yl,x2,y2) 

*  draw_border(xl,yl,x2,y2) 

*  show(x,y,buf ) ; 

*  alert_window(outf ile) 

*  file_checker( out file) 

*  getstr(buf, value, x,y) 

*  hit_any (color, buf,  text) 

* 

*  RETURNS  ;  nothing 

* 


* 

* 

* 

* 

4t 

* 

* 

4c 

4c 

is 

•k 

* 

4c 

* 


*  SIDE  EFFECTS  :  none  * 

4c4c4c4c4c4c*4c*4c4c****4c**4ccfc**4c*4k***4c4c4c*****4c******4c4c4c*4t4»4t***************4c/ 


void  file_window(void) 

{ 

char  buffer[40] ,outfile[13] ; 

FILE  *fptr; 

char  buf [ 2 ] , answer ; 

int  filexist,gotit  =  O,row  =  9; 

_setvideomode (_VRES16COLOR) ; 
_clearscreen(_GCLEARSCREEN) ; 
paint (WHITE, 0,0, 700, 600)  ; 
heading (GREEN) ; 
paint(GREEN,50,100,580,330) ; 
draw_border (50, 100, 580, 330) ; 
_displaycursor (_GCURSORON) ; 
_setbkcolor (_GREEN) ; 


Aviation  Test  Plan  Report 


Page  156 


row  +=  1; 

show (row, 10, "Do  want  to  save  the  results  of  this  run  :  y/n") ; 
_settextposition(row, 57) ; 
flushall (} ; 

getstr(buf , 2 ,row, 57) ;  /*  limit  answer  to  1  character  */ 

answer  =  buf[0]; 

while  (Igotit)  /*  while  answer  not  y  or  n  */ 

{ 

if  (tolower (answer)  ==  'n'  j{  tolower (answer)  ==  'y') 
got it  =  1; 

else 

{ 

/*  beep,  overwrite  with  blank,  repeat  */ 
printf ("\07") ; 

_settextposition (row, 57) ; 
show ( row , 57 , "  " )  ; 

_settextposition(row, 57) ; 
flushall ( )  ; 
getstr(buf ,2,row,57) ; 
answer  =  buf [0] ; 

} 

} 

if  (tolower (answer)  ==  'n') 

{ 

/*  user  does  not  want  to  save  */ 
row  =  row  +  3 ; 

show (row, 10, "Not  saving  !"); 

hit_any( GREEN,  "Hit  any  key  to  exit  . . . " , BRIGHTWHITE) ; 

) 

else 

if  (tolower (answer) ) 

{ 

/*  wants  to  save,  get  file  name  */ 
row  =  row  +  2 ; 
flushall (); 

show  (row,  10,  "Give  file  name  (no  extension,  8  chrs  max)  :"); 
_settextposition(row,57) ; 

getstr(outfile,9,row,57) ;  /*  get  filename  with 

max  8  chrs  */ 

strcat(outfile,".LOG\0") ;  /*  add  .LOG  extension 

to  it  */ 

filexist  =  file_checker  (outfile) ;  /*  check  if  file 

exists  */ 
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} 


while  (filexist) 

( 

/*  file  exists,  alert  user,  get  y  or  n  reply  for 
overwriting  */ 

answer  *  alert_window(outf ile) ; 


} 


if  (tolower( answer)  ==  *y') 

{ 

/*  overwrite  —  remove  file  */ 
remove (out file) ; 
filexist  =0; 


} 

else 


{ 


) 


/*  no  overwrite  —  get  new  file  name,  at  previous 
row  */ 

_displaycursor (_GCURS0R0N) ; 

show  ( row ,  10 ,  " )  ; 

show  (row,  55 ,  ”)  ; 

show (row, 10, "Give  new  file  name  (no  extension,  8 
chrs  max)  :  ”)  ; 

_settextposition(row, 57) ; 

getstr(outfile,9,row,57) ;  /*  get  new  file  name, 

8  chrs  */ 

strcat(outfile,''.LOG\0'')  ;  /*  .LOG  extension  */ 

filexist  =  file_checker  (outfile) ;  /*  check  if  it 

exists*/ 


/*  open  the  file  for  writing  */ 
fptr  =  fopen (outfile, "w”) ; 

sprintf (buffer , "The  data  will  be  saved  in  %s",  outfile); 


row  =  row  +2 ; 
show(row, 10, buffer) ; 
row  =  row  +  2 ; 

show(row, 10, "Writing  to  file  ...."); 


file_header (fptr) ; 
file_data(fptr) ; 
fclose(fptr) ; 


/*  write  header  data  to  file  */ 

/*  write  to  trial  results  to  file  */ 
/*  close  file  */ 


hit_any (GREEN, "Hit 


any  key  to  continue 


.  . .",BRIGHTWHITE)  ; 
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ifk-KhlfkitltiiititlfkifkltltltltltifkitliltlfkititltltitltltltlUfk**************************** 

get_str ( ) 

PURPOSE  :  gets  a  string  from  the  keyboard,  for  a  specified 
length,  checks  for  its  validity,  and  then  returns 
it  to  the  caller  when  a  Carriage  Return  key  is 
pressed.  The  routine  allows  the  user  to  edit  the 
string  while  inputting  it. 

ASSUMES  :  nothing 

CALL  :  get_str (buf, value, x,y) : 

INPUT  PARAMETERS  :  int  x,y  —  where  to  read  input  from  on 

screen 

int  value  —  maximum  length  of  string 
char  buf  —  hold  the  string 


FUNCTION  CALLS (  other  than  standard  functions  )  : 

show(x,y,buf ) ; 


RETURNS  :  nothing 


SIDE  EFFECTS  :  none 

ieiticitititiciticitieic'kit'k-k-k-k'kititit'kieic'kiticie’k'kicic-kic'k'kic'kicic'k’k’kitic'k-ic'k’k'k'k'k'kic'k-k-kic-kic'k-k'k-kit 


void  get str (char  buf[],int  len,int  x,int  y) 

{ 

char  ch,  cbuf[2]; 
int  i , xpos , ypos / 

_settextposition(x,y) ; 
xpos  =  x; 
ypos  =  y; 
i  =  0; 

/*  while  a  string  is  not  obtained,  repeat  */ 
do 
{ 

ch  =  getch();  /*  read  the  key  pressed  */ 

if  (ch  =-^  CARRIAGE) 

buf[i]  -  '\0';  /*  key  pressed  is  Carriage  Return  */ 

else 
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if  (ch  !=  BACKSPACE)  /*  key  pressed  is  not  Backspace  */ 

{ 

if  (i  >=  len-1) 

printf  (''\07**)  ;  /*  beep  */ 

else 

{ 

/*  length  not  exceeded,  save  the  char  */ 
_settextposition(xpos,ypos) ; 
sprintf  (cbuf , '•%c'' , ch)  ; 

_outtext (cbuf ) ; 
buf[i]  =  ch; 
i++; 
ypos++ ; 

} 

) 

else  /*  key  pressed  is  Backspace  */ 

{ 

if  (i  <=  0) 

printf  ( ”\07'')  ;  /*  beep  */ 

else 

{ 

/*  erase  previous  char  on  screen,  remove  it 
from  buf,  reset  cursor  position,  if  length 
is  >  0  */ 
i — ; 
ypos — ; 

_settextposition(xpos,ypos) ; 
show ( xpos , ypos , ”  ” ) ; 
_settextposition(xpos,ypos) ; 

) 

} 

} 

} 

while  (i  <  len  &&  ch  1=  CARRIAGE) ; 

if  (i  ==  len-1) 

buf [len-1]  =  'XO'; 

) 
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/*********-k***it********1t*****-k**1t************it******************** 

alert_window( ) 

PURPOSE  ;  draws  an  alert  window,  that  the  named  file  already 
exists,  gets  user's  reply,  checks  validity  of  reply 
return  after  removing  the  window  from  screen 

ASSUMES  :  nothing 

CALL  :  alert_window(outfile) ; 

INPUT  PARAMETERS  :  char  *outfile  —  ptr  to  filename 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

paint ( color , xl , yl , x2 , y2 ) 
draw_border ( xl , y 1 , x2 , y 2 ) 
show(x,y,buf ) ; 
getstr (buf, value, x,y) 

RETURNS  :  user's  reply  of  yes  or  no  to  overwrite  the  named  file 


SIDE  EFFECTS  :  none 

*★★★*★**★**★***★★★★*★*★**★*★***★***★*******************★**★****** 


char  alert_window(char  *outfile) 

{ 

char  buffer[60]; 
char  answer , buf [ 2 ] ; 
int  quit  =  FALSE; 

paint{GREEN,30,380,570,430)  ; 
draw_border(30,380,570,4  30)  ; 

_settextcolor (30) ; 

_displaycursor (_GCURSORON) ; 

sprintf (buf fer, "  File  %s  already  exists.  Overwrite  ?? 

(y/n) ",outfile) ; 
show(26, 10, buffer) ; 

_settextposition(26, 65)  ; 
flushall  ( )  ; 

getstr (buf , 2 , 26, 65) ;  /*  limit  answer  to  1  character  */ 

answer  =  buf[0]; 
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*/ 


while  (!c[uit)  /*  while  not  right  answer  provided  */ 

{ 

if  (tolower (answer)  ==  'y'  jj  tolower (answer)  ==  'n') 
quit  =  TRUE; 

else 

{ 

/*  beep,  overwrite  with  blank,  repeat  */ 
printf  ("V)  ; 
show(26,65,''  ••)  ; 
flushallO  ; 

getstr(buf ,2,26,65) ;  /*  limit  answer  to  1  character 

answer  =  buf [ 0 ] ; 

} 

} 


_displaycursor(_GCURSOROFF) ; 

paint(WHITE,30,380,570,430) ;  /*  remove  current  window  */ 

return  (answer) ; 
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/***************************************************************** 

heading 0 

PURPOSE  :  draws  the  heading  on  the  screen 

ASSUMES  :  nothing 

CALL  :  heading (color) ; 

INPUT  PARAMETERS  :  int  color  —  bkcolor  for  the  heading 
window 

FUNCTION  CALLS (  other  than  standard  functions  )  : 

paint ( color , xl , yl , x2 , y2 ) 
draw_border (xl,yl,x2,y2) 
show(x, y,buf ) ; 

RETURNS  :  nothing 

SIDE  EFFECTS  :  none 

******************************************************************* 

void  heading (int  color) 

{ 

char  buf [50] ; 

paint (color, 50, 10, 580, 65)  ; 
draw_border(50,10,580,65) ; 

sprintf (buf , "AVIATION  TRAINER  TECHNOLOGY  LABORATORY"); 

_settextcolor(BRIGHTWHITE) ; 

_setbkcolor (color) ; 
show(3 , 18 ,buf ) ; 

) 
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/****************************************************************** 

f ile_checker ( ) 

PURPOSE  :  checks  if  given  file  name  already  exists  or  not 

ASSUMES  :  nothing 

CALL  :  file_checker (outfile) ; 

INPUT  PARAMETERS  ;  char  *outfile  —  given  file  name 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  true  or  false 
SIDE  EFFECTS  :  none 

******************************************************************* 

int  file_checker (char  *outfile) 

{ 

return (f open (out f ile, "r”)  !=  NULL); 

} 
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y ****************************************************************** 

file_header 0 

PURPOSE  :  writes  header  details  to  the  given  file 
ASSUMES  :  file  is  opened 
CALL  ;  file_header(fpr) ; 

INPUT  PARAMETERS  :  FILE  *fptr  —  pointer  to  opened  file 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 
SIDE  EFFECTS  ;  none 

***************************************************************** 


void  f ile_header (FILE  *fptr) 

{ 

struct  tm  *ptr; 
tiine_t  my  time; 

mytime  =  time (NULL) ; 

ptr  =  localtime  (Smytime) ;  /*  get  current  system  time  and 

date  */ 


fprintf  (fptr, '•  TRIAL  %d", 

trial_number) ; 

fprintf  ( fptr ,  ”\n  ============:=••)  ; 

fprintf  (fptr, ''\n\nThe  date  and  time  of  this  trial  are 
fprintf ( fptr, asctime (ptr) ) ; 

fprintf (fptr, ”\nDelay  to  ASAT  1  :  %d  millisecs”,  asatl_2) ; 
fprintf (fptr, ”\n\nDelay  to  ASAT  2  :  %d  millisecs”,  asat2_l) ; 
fprintf (fptr, "\n\nTrial  duration  (minrsec)  :  %d:%d",  min, sec); 
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/*  network_flag  indicates  the  manner  in  which  the  trial  ended 
*/ 

/*  a  different  message  is  displayed  based  on  its  value  */ 

switch (network_f lag) 

{ 

case  0  : 

{ 

fprintf (fptr, ''\n\nTrial  termination  status  :  NORMAL"); 
break; 

} 

case  1  : 

{ 

fprintf (fptr, "\n\nTrial  termination  status  :  AoAT  1 
CRASHED") ; 

break; 

} 

case  2  : 

{ 

fprintf ( fptr, "\n\nTrial  termination  status  :  ASAT  2 
DEAD") ; 

break; 

} 

case  9  : 

{ 

fprintf (fptr," \n\nTrial  termination  status  :  USER 
TERMINATED") ; 

break; 

) 

} 


fprintf (fptr,  "\n\n 

} 


=====\n\n" ) ; 
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/************  **************  *************************************** 

file_data() 

PURPOSE  :  writes  the  trial  results  to  the  given  file 
ASSUMES  :  file  is  opened 
CALL  :  file_data(ftpr) ; 

INPUT  PARAMETERS  :  FILE  *fptr  —  pointer  to  opened  file 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

***************************************************************** 

void  f ile_data (FILE  *fptr) 

{ 

fprintf  (fptr,  •'  ASATl" 

"  ASAT2\n\n"); 

fprintf (fptr, "Packets  sent  ") ; 

fprintf (fptr, "\t%d" ,max_sent_l) ; 
fprintf (fptr, "\t\t%d\n\n" ,max_sent_2) ; 

fprintf (fptr , "Packets  sent  with  more  delay  ") ; 
fprintf (fptr, "\t%d" ,plus_l) ; 
fprintf ( fptr , " \t \t%d\n\n" , plus_2 ) ; 

fprintf (fptr , "Packets  sent  with  less  delay  ") ; 
fprintf  (fptr,  "\t%d",ininus_l)  ; 
fprintf (fptr, "\t\t%d\n\n" ,minus_2) ; 

fprintf (fptr, "Upper  range  of  delay  error  ") ; 
fprintf (fptr, "\t%f " ,maxjplus_error_l) ; 
fprintf ( fptr, "\t%f\n\n" , max_plus_error_2 ) ; 

fprintf (fptr, "Lower  range  of  delay  error  ") ; 
fprintf ( fptr, "\t%f " ,max_minus_error_l) ; 
fprintf (fptr, "\t%f \n\n" ,max_minus_error_2) ; 

fprintf (fptr, "Average  delay  error  ") ; 

fprintf (fptr, "\t%f " , ave_error_l) ; 
fprintf ( fptr, "\t%f \n\n" , ave_error_2 ) ; 

fprintf  ( fptr ,  ••=========================" 

} 
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/***************************************************************** 

draw_border ( ) 

PURPOSE  :  draws  a  double  line  border,  inside  a  window 
ASSUMES  :  nothing 

CALL  ;  draw_border (xl,yl,x2,y2) ; 

INPUT  PARAMETERS  :  int  xl,yl,x2,y2  —  left  top,  right  bottom  pts 
FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

***************************************************************** 

void  draw_border ( int  xl,int  yl,int  x2,int  y2) 

{ 

_setcolor(BRIGHTWHITE) ; 

_moveto(xl+5,yl+5) ; 

_lineto(x2-5,yl+5) ; 

_lineto(x2-5,y2-5) ; 

_lineto(xl+5,y2-5) ; 

_lineto(xl+5,yl+5)  ; 

_moveto(xl+8,yl+8) ; 

_lineto(x2-8,yl+8) ; 

_lineto(x2-8,y2-8) ; 

_lineto(xl+8,y2-8) ; 

_lineto(xl+8,yl+8) ; 

} 
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/it**************************************************************** 

show 

PURPOSE  :  writes  text,  inside  a  window  at  x,y 

ASSUMES  :  nothing 

CALL  :  show (x,y, buffer) ; 

INPUT  PARAMETERS  :  int  x,y  —  location  where  to  write  text 

char  buffer  -  text  to  write 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 

RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

******************************************************************* 

void  show(int  x,int  y,char  *buffer) 

{ 

_settextposition (x,y) ; 

_outtext (buffer) ; 

) 

y  ***********************************************************  ****** 

paint  0 

PURPOSE  :  fills  a  window  with  given  color 
ASSUMES  :  nothing 

CALL  :  paint (color, xl,yl,x2,y2) ; 

INPUT  PARAMETERS  :  int  xl,yl,x2,y2  —  left  top,  right  bottom 

pts  int  color 

FUNCTION  CALLS (  other  than  standard  functions  )  :  none 
RETURNS  :  nothing 
SIDE  EFFECTS  :  none 

****************************************************************** 

void  paint (short  color, short  xl, short  yl, short  x2, short  y2) 

{ 

_setcolor (color) ; 

_rectangle (_GFILLINTERIOR, xl , yl , x2 , y2 ) ; 

) 
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/************** 

*  main  driver  * 

*********it*****y 


void  main(int  argc 
posdelay.exe  */ 

{ 

set_values (argv) 
done_window ( ) ; 
result_window ( ) ; 
file_window() ; 

) 

/*  End  of  file  */ 
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char  *argv[])/*  parameters  received  from 


/*  copy  parameters  into  global 
variables  */ 

/*  inform  user  that  the  trial  is 
completed  */ 

/*  display  results  to  user  on 
screen  */ 

/*  save  results  to  file  */ 
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11.0  Data  Collection 


The  data  collection  module  consists  of  four  files,  3com.h, 
datajcol.c,  netto3 1 . asm ,  and  stamp. asm.  The  3com.h  is  a  header 
included  by  datajcol.c.  Datajcol.c  drives  the  Ethernet  software. 


11.1  3com.h 

Refer  to  inet.h  (section  3.1),  which  closely  parallels  this 
header,  for  more  details  of  the  structures  defined  here.  These 
common  structures  should  be  combined  in  a  single  header. 


/*  These  are  structures  used  only  for  3COM  board  initialization  */ 

/*  this  structure  is  for  the  fake  DOS  INIT  header  -  this  is  only  used  for 
non-driver  programs  */ 

/*  ***  types  ***  */ 

struct  ini_hdr 
{ 

char  len; 
char  nonl; 
char  non2 ; 
char  non3 [ 2 ] ; 
char  non4 [ 4 ] ; 
char  non5[4]; 
char  none; 
char  cdend [ 4 ] ; 
char  *argo; 
short  args; 
char  non? ; 
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/* - 

/*  The  WhoStruct  type  is  used  to  store  information  about 
/*  the  3Com  adapter.  This  structure  is  used  internally 
/*  by  the  3Com  device  drivers. 

/* - 

struct  WhoStruct 


unsigned  char  addr[6]; 

char  ver_major; 

char  ver_minor; 

char  sub_ver; 

char  type_ds; 

char  type_adapter ; 

char  init_status; 

char  reserved; 

char  num_tran_buf ; 

short  si2e_tran_buf ; 

long  ttl_tran_cnt ; 

long  ttl_tran_err_cnt ; 

long  ttl_tran_timeout_cnt 

long  ttl_recp_cnt ; 

long  ttl_recv_bdr_cnt ; 

long  ttl_recv_err_cnt ; 

long  ttl_retry_cnt ; 

char  xfr_mode; 

char  wait_mode; 

char  hdr_spec_data ; 


//  Our  ethemet  address 
//  Major  version  number  of 
//  Minor  version  nxamber  of 
//  Subversion  of  driver 

//  Type  of  3Com  adapter 


*/ 

*/ 

*/ 

*/ 

*/ 


driver 

driver 


/*  This  structure  is  used  for  packet  manipulation  */ 

typedef  struct 
{ 

unsigned  long  int  packet_stamp ; 
unsigned  short  int  packet_length ; 
unsigned  char  data[506]; 

}  Packet ; 
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/**************************************************************** 
Description:  This  file  contains  the  code  which  calls  the 

functions  provided  by  the  CT03L.ASM  to 
receive/ transmit  packets  through  3COM 
EtherLinkii  board. 

ASAT's  packets  will  be  read  and  transformed. 
****************************************************************** 

yieic-k-k'k’k'k'k'kicit'kitiiicitit'k'kifkic'krk'k'itifk'k  includGS  **************************  / 

# include  <stdio.h> 

# include  <math.h> 

# include  <graph.h> 

# include  <process.h> 

# include  <conio.h> 

# include  <time.h> 

# include  <stddef.h> 

#include  <dos.h> 

#include  ''3com.h" 

y****************************  constants  ************************** y 


#define  TRUE  1 

#define  FALSE  0 

#define  ASATl  1 

#define  ASAT2  2 

#define  Solitairel  1 
#deflne  Solitaire2  2 
#define  Team  3 

#define  Independent  4 
#define  Allvariables  32 
#define  Convert  16384.0 


#define  MaxPacketsInArray  600  /*  dependent  upon  size  of  structure 

Packet  */ 
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/******★************************  types  ***************************/ 
typedef  struct 
( 


unsigned  long  Timestamp; 

/*  timestamp  variable 

*/ 

unsigned  long  varSPEED; 

/*  speed 

*/ 

unsigned  short  varMFF; 

/*  missile/flare  flag 

*/ 

unsigned  long  varAltx256; 

/*  F16-A  altitude 

*/ 

unsigned  cha?  in  address[6],  /*  Ethernet  address  for 

the 

Asat 

*/ 

short  PLcngth; 

/*  Packet  length 

*/ 

short  varWEIGHT; 

/*  F16A  weight 

*/ 

short  varNAB; 

/*  afterburner  stage 

*/ 

short  varBRAKE; 

/*  Brake  factor 

*/ 

short  varGforce; 

/*  G-force 

*/ 

short  varCAS; 

/*  Calibrated  airspeed 

*/ 

double  varMACH; 

/*  machine  number 

*/ 

/*  NEXT  3  FIELDS  MUST 

BE 

CONVERTED 

V 

double  varPSI ; 

/*  extra  precision  heading 

*/ 

double  varTHT; 

/*  extra  precision  climb  angle*/ 

double  varPHI; 

/*  extra  precision  roll  angle 

*/ 

double  varOXP; 

/*  X  coordinate  pitch  rate 

*/ 

double  varOXY; 

/*  X  coordinate  yaw  rate 

*/ 

double  varDLP; 

/*  stick  deflection,  pitch  axis 

double  varDLR; 

r 

/*  stick  deflection,  roll  axis*/ 

double  varTHPBD; 

/*  pitch  rate 

*/ 

double  varTHPPBD; 

/*  pitch  angular  acceleration 

*/ 

double  varP; 

/*  roll  angle 

*/ 

double  varPD; 

/*  roll  angular  acceleration 

*/ 

double  varPX; 

/*  X  coordinate  roll  rate 

*/ 

double  varABP; 

/*  3rd  component 

of 

acceleration 

double  varTHRUST; 

/*  engine  thrust  value 

*/ 

long  varX; 

/*  plane  x  coordinate 

*/ 

long  varY; 

/*  plane  y  coordinate 

*/ 

long  varZ; 

/*  plane  z  coordinate 

*/ 

long  varV; 

/*  F-16A  velocity 

*/ 

long  varVFN; 

/*  F-16A  velocity  vector:  North 

long  varVFE; 

r 

/*  F-16A  velocity  vector:  East 

* 

long  varVFU; 

/*  F-16A  velocity  vector:  Up 

/ 

*/ 

long  varH; 

/*  plane  heading 

*/ 

long  varC; 

/*  plane  climb 

*/ 

long  varR; 

/*  plane  roll 

*/ 

char  varMISSILE; 

/*  missile  structure 

*/ 

char  varFXP; 

/*  f-16A  status 

*/ 

char  varPLANEID; 

/*  plane  Id 

*/ 

) 

PackDat ; 
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^1fkit1fltitiiifk*itie1iit1fk1i-kifki€-k-k1iifk1fk  eXtfi  mS  **************************/ 


extern  int  count;  /*  number  of  pkts  in  buffer  not  consumed  */ 
extern  char  flag;  /*  indicates  pc  has  received  type  10  pkt  */ 

/*******  function  prototypes  and  forward  declarations  **********/ 


void 

void 

void 

void 

void 

char 

char 

char 

void 


PackSave (PackDat  *Dat,  FILE  *fpl) ;  /*  saves  packet  data  */ 

extract (PackDat  *Dat,  int  i  ,  FILE  *fpl) ;  /*  decodes  data 

from  packet  f 

extract 1 (PackDat  *Dat,  int  i,  FILE  *fpl) ;  /*  decodes  data 

from  packet  / 

screenOne(void)  ;  /*  prints  scrn  1 

(text  part)  / 

DisplayScreenOne (PackDat  *Dat) ;  /*  prints  scrn  1 

(numeric)  / 

choose_asat (void) ;  /*  gets  asat  number 

f 


CheckBit(int  bit,  char  flag,  int  c)  ; 
Screen (void) ; 

name_prompt (char  *ptr,FILE  *fp)  ; 


/*  explosion 
occurred?  */ 
/*  Displays  menu  */ 
/*  Get  file  name  */ 


y*********************  globsl  vsijT JLdbl^s  **************************/ 


Packet  huge  PackArray [MaxPacketsInArray ] ; 
Packet  huge  *Buffer  =  &PackArray[0] ; 

struct  WhoStruct  far  *Who; 


/*  Array  for  pkts  */ 

/*  declare  packet 
pointer  */ 


int  Arrayindex  =  0; 

int  ArrayIndexOut  =  0; 

int  Missilecnt  =  0,  Missilecntl  =  0; 

int  AsatlCnt  =  0,  Asat2Cnt  =0; 

int  FLAG_ARRAY[Allvariables-l] ; 

int  counter  =  0,  counterl  =  0; 

int  mins,  secs,  milsecs; 

int  bitl,  bit2,  bit3,  bit4,  val; 


/*  Index  to  packet  array  */ 
/*  Index  to  buffer  */ 

/*  Missile  counts  for  Asatl 

&  Asat2  V 
/*  Packet  counts  for  Asatl 

&  Asat2  */ 
/*  if  flag[i]  extract  from 

pkt  */ 

/*  Variable  s  for  time  */ 
/*  Tells  which  missile  was 

fired  */ 


unsigned  long  cnt  =  0; 
unsigned  long  int  tempi; 
unsigned  long  far  *timeptrl; 


/*  total  count  of  packet 
extracted  */ 

/*  will  hold  the  starting 
time  / 

/*  timestamp  pointer  */ 


/*  each  ASAt  has  4  bits  that  tells  us  about  the  missile  status,  f 
/*  The  following  variables  will  keep  track  when  the  missile  has  */ 
/*  been  fired  / 

char  Bitstatusl  =  TRUE,  BitStatus2  =  TRUE,  BitStatus3  =  TRUE, 

BitStatus4  =  TRUE; 

char  BitStatusB  =  TRUE,  BitStatusS  =  TRUE,  Bitstatus?  =  TRUE, 
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BitStatusS  =  TRUE; 


char  StatASATl  =  FALSE;  /*  Status  for  ASATl  in  solitaire  mode  */ 

char  StatASAT2  =  FALSE;  /*  Status  for  ASAT2  in  solitaire  mode  */ 

char  StatASAT12  =  FALSE;  /*  Status  for  both  in  solitaire  mode  */ 

char  StatASAT3  =  FALSE;  /*  Status  for  team  mode  */ 

/*******************  packet  variables  ****************************/ 

PackDat  ASATl  dat; 
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/*************★**********  MAIN  ROUTINE  ***************************/ 


void  main (void) 

{ 

struct  tm  *ptrl;  /*  DOS  time  structure  pointer  */ 

time_t  Lt;  /*  The  current  time  */ 

char  name[10];  /*  Input  file  name  */ 

int  i;  /*  General  index  variable  */ 

int  num_left;  /*  Track  #  of  packets  left  */ 

PackDat  *A1  =  &ASATl_dat;  /*  ASAT-1  data  structure  */ 

FILE  *fpl  =0;  /*  Output  data  file  pointer  */ 

unsigned  char  /*  Ethernet  addresses  for  ASATs  */ 


asatl_address[6]  =  {0x02,  0x60,  0x8c,  OxOd,  0x25,  Oxea), 
asat2_address[6]  =  {0x02,  0x60,  0x8c,  OxOd,  0x20,  0xf5}; 

/* 

The  header  contains  information  about  the  name  of  the 
subject  and  of  the  experimenter,  as  well  as  the  complete 
date.  In  the  case  of  team  mode  or  solitaire  mode  (both 
flying)  the  system  will  ask  you  to  enter  the  header 
information  twice,  once  for  experimenter  #1,  and 
experimenter  #2. 

*/ 

char  HEADER_ARRAY [ 6 ] [ 15 ] ; 
char  HEADER_ARRAY1 [ 6 ] [ 15 ] ; 


spawnl(  P_WAIT,  "BE. EXE”,  ”BE”,  "  SA  reverse”,  NULL) ; 

spawnl(  P_WAIT,  "BE. EXE”,  "BE”, 

”  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SPIADOW 
ZOOM” , NULL) ; 

spawnl(  P_WAIT, 

"BE. EXE”, 

"BE”, 

”  ROWCOL  3,21  ’  AVIATION  RESEARCH  LABORATORY'  BOLD 
WHITE  ON  BLUE”, 

NULL)  ; 

switch  (ScreenO) 

{ 

case  Solitairel; 

( 

StatASATl  =  TRUE; 
name_prompt (name, fpl) ; 

break; 

) 


/*  Solitaire  mode  */ 

/*  Ask  the  user  to  enter  file 
name  */ 
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case  Solitaire2: 

{ 

StatASAT2  =  TRUE;  /*  Solitaire  node  */ 

name__prompt  ( name ,  fpl)  ;  /*  Ask  the  user  to  enter  file 

name  */ 

break; 

) 

case  Team: 

{ 

StatASAT12  =*  TRUE;  /*  team  mode  */ 

name  prompt ( name , f pi ) ;  /*  Ask  the  user  to  enter  file 

name  */ 

break; 

} 

case  Independent: 

{ 

StatASATS  =  TRUE; 
name_prompt ( name , fpl) ; 
break; 

} 

) 

/*  In  all  cases  we  open  a  file  for  collected  data  */ 

if  (StatASATl  I!  StatASAT12  |j  StatASAT2  j|  StatASATS) 

{ 

if  ((fpl  =  fopen(name,"w''))  ==  NULL) 

{ 

printf(''\n  Cannot  open  data  file\n")  ; 
exit (0)  ; 

} 

) 

/* 

The  header  contains  information  about  the  name  of  the 
subject  and  of  the  experimenter,  as  well  as  the  complete 
date.  In  the  case  of  team  mode  or  solitaire  node  (both 
flying)  the  system  will  ask  you  to  enter  the  header 
information  twice,  once  for  experimenter  #1,  and 
experimenter  #2. 

*/ 

spawnl(  P_WAIT, 

"BE. EXE”, 

••BE”, 

”  SA  reverse”, 

NULL) ; 


/*  Both  flying  in  solitaire 
mode  */ 

/*  Ask  the  user  to  enter  file 
name  */ 
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spavnl (  P_WAIT , 

"BE. EXE”, 

"BE”, 

"  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM”, 
NULL)  ; 

spawnl(  P_WAIT, 

"BE. EXE”, 

"BE”, 

”  ROWCOL  3,21  'ENTER  THE  NAME  OF  THE  SUBJECT  :  ” 

”'  BOLD  WHITE  ON  BLUE”, 

NULL)  ; 

gets (HEADER_ARRAY [ 0 ] ) ; 

if  ((StatASAT3)  |{  StatASAT12) 

{ 

spawnl (  P_WAIT , 

"BE. EXE”, 

"BE”, 

"  SA  reverse", 

NULL)  ; 

spawnl (  P_WAIT , 

"BE. EXE”, 

"BE”, 

"  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE”, 

"BE”, 

"  ROWCOL  3,13  'ENTER  THE  NAME  OF  THE  SECOND 
SUBJECT  :  ” 

"'  BOLD  WHITE  ON  BLUE", 

NULL)  ; 

gets (HEADER_ARRAY1 [0]) ; 

) 

spawnl (  P_WAIT , 

"BE. EXE”, 

"BE”, 

”  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM”, 
NULL)  ; 

spawnl (  P_WAIT , 

"BE. EXE”, 

"BE”, 

”  ROWCOL  3,21  'ENTER  THE  NAME  OF  THE  GROUP  :  '  BOLD 

WHITE  ON  BLUE”, 

NULL)  ; 
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gets (HEADER_ARRAY [ 4 ] ) ; 

if  (StatASAT3  I  I  StatASAT12) 

{ 

spawnl(  P_WAIT, 

"BE. EXE”, 

"BE", 

”  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM”, 
NULL) ; 

spawnl(  P_WAIT, 

"BE. EXE”, 

"BE", 

”  ROWCOL  3,13  'ENTER  THE  NAME  OF  THE  SECOND  GROUP 

•  It 

BOLD  WHITE  ON  BLUE", 

NULL)  ; 

gets (HEADER_ARRAY1 [4 ] ) ; 

} 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE", 

"  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  3,21  'ENTER  THE  NAME  OF  THE  EXPERIMENTER:  '  " 
"BOLD  WHITE  ON  BLUE", 

NULL)  ; 

gets (HEADER_ARRAY [ 5 ] ) ; 

if  (StatASAT3  | }  StatASAT12) 

{ 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE", 

"  WINDOW  2,10,4,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL) ; 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE" , 

"  ROWCOL  3,13  'ENTER  THE  NAME  OF  THE  SECOND 
EXPERIMENTER:  " 

"'  BOLD  WHITE  ON  BLUE", 

NULL) ; 

gets (HEADER_ARRAY1 [ 5 ] ) ; 

} 
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spawnl(  P_WAIT, 

"BE. EXE”, 

"BE", 

"  WINDOW  8,10,10,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL) ; 

spawnl(  P__WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  9,21  '  PRESS  ENTER  TO  START  'BOLD  WHITE 

ON  BLUE", 

NULL)  ; 

getchO  ;  /*  gives  the  user  a  chance  to  set  up  the  simulator 

and  then  start  to  capture  data  packets  */ 


Lt  =  time (NULL) ; 
ptrl  =  localtime(&Lt) ; 

if  (StatASATl  [  [  StatASAT2  j  j  StatASAT12  |  |  StatASAT3) 

{ 

fprintf  (fpl,  "The  date  and  time  of  %s  experiment  is  : 

" , HEADER_ARRAY [ 0 ] ) ; 
fprintf ( fpl , asctime (ptrl) ) ; 

/*  Sends  information  in  the  header  to  the  file  pointed  to 
by  fpl  */ 

fprintf (fpl, "\nSubject  name  #1  :%5s\n",HEADER_ARRAY[0] ) ; 

if  (StatASAT3  I  I  StatASAT12) 

fprintf(fpl,"\nSubject  name  #2 
: %  5s\n" , HEADER_ARRAY1 [0]); 

fprintf (fpl," \nGroup  number  #1  ;%5s\n",HEADER_ARRAY[4] ) ; 

if  (StatASAT3  I {  StatASAT12) 

fprintf ( fpl, "\nGroup  number#2 : %5s\n" , HEADER_ARRAY1 [4 ] ) ; 


) 


fprintf (fpl, "\nExperimenter  #1  :%5s\n",HEADER_ARRAY[5] ) ; 

if  (StatASAT3  j  j  StatASAT12) 

fprintf  (fpl,  "\nExperimenter  #2 
: %  5s\n\n" , HEADER_ARRAY1 [5]); 

fprintf (fpl, "The  following  is  the  data  received  from  the 
ASAT  ;\n\n"); 


/*  set  up  data  collection  screen  */ 


spawnl(  P_WAIT, 

"BE. EXE", 

"BE", 

"  SA  reverse", 
NULL)  ; _ 
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spawnl ( 


spawnl ( 


spawnl ( 


spawnl ( 


spawnl ( 


spawnl ( 


spawnl ( 


spawnl ( 


P_WAIT, 

"BE. EXE", 

"BE", 

"  WINDOW  2,10,4,69  BOIJD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL) ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  3,21  •  *****RECORDING  DATA*****:  '  " 

"BOLD  WHITE  ON  BLUE", 

NULL) ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  WINDOW  7,2,22,35  BOLD  CYAN  ON  RED  SHADOW  ZOOM", 
NULL) ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  8,15  'ASAT  #2  '  BOLD  WHITE  ON  BLACK", 
NULL)  ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  9,4  'Timestamp:  •  BOLD  WHITE  ON  RED", 
NULL)  ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  11,4  'Speed:  '  BOLD  WHITE  ON  RED", 

NULL) ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  13,4  'Altitude:  •  BOLD  WHITE  ON  RED", 

NULL)  ; 

P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  15,4  'Heading:  ’  BOLD  WHITE  ON  RED", 

NULL)  ; 
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spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

”  ROWCOL  17,4  'PacketCount;  '  BOLD  WHITE  ON  RED", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  19,4  'PacketLenght;  '  BOLD  WHITE  ON  RED", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

'*  ROWCOL  21,4  'MissileCnt:  '  BOLD  WHITE  ON  RED", 
NULL)  ; 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE"  , 

"  WINDOW  7,42,22,75  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL) ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  8,55  'AS AT  #1  '  BOLD  WHITE  ON  BLACK", 

NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  9,44  'TimeStamp:  '  BOLD  WHITE  ON  BLUE", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  11,44  'Speed:  '  BOLD  WHITE  ON  BLUE", 

NULL) ; 

spawnl (  P_WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  13,44  'Altitude:  '  BOLD  WHITE  ON  BLUE", 
NULL)  ; 
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spawnl (  P_WAIT, 

'•BE.  EXE”, 

"BE”, 

”  ROWCOL  15,44  'Heading:  '  BOLD  WHITE  ON  BLUE”, 

NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE”, 

”  ROWCOL  17,44  ' PacketCount :  '  BOLD  WHITE  ON  BLUE”, 

NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE”, 

"BE”, 

”  ROWCOL  19,44  ' PacketLenght :  •  BOLD  WHITE  ON  BLUE”, 

NULL)  ; 

spawnl'  P_WAIT, 

"BE. EXE”, 

"BE”, 

”  ROWCOL  21,44  'MissileCnt:  '  BOLD  WHITE  ON  BLUE”, 
NULL)  ; 

cGettimeptr (fitimeptrl) ;  /*  get  pointer  to  the  clock  counter 

*/ 

cGetATimeStampl 0 ;  /*  gets  the  value  of  the  counter 

*/ 

tempi  =  *timeptrl;  /*  tempi  holds  the  starting  time 

*/ 

init3com() ;  /*  Initialize  all  network  software 

*/ 

set_f ilter3COM() ;  /*  set  receive  filter  to  receive 

packets*/ 
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/*  Wait  until  a  key  is  pressed  or  we  run  out  of  space  */ 


while  (  !kbhit()  &&  1 f lag) 

{ 

/****  asat  1  ****/ 

if  ((StatASATl  II  StatASAT12  ||  StatASAT3)  &&  (count  >  0)  ) 

( 

/*  Make  sure  that  the  array  is  circular  */ 

if  (ArrayIndexOut  ==  MaxPacketsInArray) 

ArrayIndexOut  =0; 

i  =  ArrayIndexOut; 

/*  filter  for  correct  ASAT  address  */ 

/*  Asat  address  is  6  bytes  (0-5)  and  byte  10  for  packet 
type  */ 

if  ( 

( PackArray [ i ] . data [ 0 ]  ==  asatl_address [ 0] )  && 

( PackArray [ i ] . data [ 1 ]  ==  asatl_address [ 1] )  && 

( PackArray [ i ]. data [ 2 ]  ==  asatl_address [ 2 ] )  && 

( PackArray [ i ]. data [ 3 ]  ==  asatl_address [ 3 ] )  && 

(PackArray [ i] .data[ 4]  ==  asatl_address [4 ] )  && 

( PackArray [ i ]. data [ 5 ]  ==  asatl_address[5] )  && 

(PackArray[i] .data[10]  ==  8) 


/*—  SAVE  VARIABLES  OF  INTEREST  FROM  PACKET  —  */ 


extract ( A1 , i ,  f pi ) ; 

/* 

Extract  variables  needed 
from  packet  */ 

PackSave (A1 , fpl) ; 

/* 

Save  those  variables 

extracted  */ 

cnt++ ; 

/* 

increment  total  packet 
count  */ 

AsatlCnt++ ; 

/* 

count  the  number  of  packets 
received  */ 

ArrayIndexOut++ ; 

/* 

increment  the  array  index 
*/ 

decrements  after  consuming 
one  packet*/ 

count — ; 

/* 
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/****  ASAT  2  ****/ 

if  ((StatASAT2  II  StatASAT12  ||  StatASAT3)  &&  (count  >0) ) 
{ 

/*  Make  sure  that  the  array  is  circular  */ 

if  (ArrayIndexOut  ==  MaxPacketsInArray) 

ArrayIndexOut  =  0; 

i  =  ArrayIndexOut; 

/*  filter  for  correct  ASAT  address  */ 

/*  Asat  address  takes  6  bytes  [0-5]  and  byte  10  for 
packet  type  */ 

if( 

(PackArray[i] .data[0]  ==  asat 2 
( PackArray [ i ] - data [ 1 ]  ==  asat2 
( PackArray [ i ] . data [ 2 ]  ==  asat2 
(PackArray[i] .data[3]  ==  asat2 
( PackArray [ i ]. data [ 4 ]  ==  asat2 
(PackArray[i] .data[5]  ==  asat2 
(PackArray [ i] .data [10]  ==  8) 

) 

{ 

/*—  SAVE  VARIABLES  OF  INTEREST  FROM  PACKET  — */ 

extractl (Al, i,  fpl) ;  /*  Similar  to  ASAT  1  */ 

PackSave(Al, fpl) ; 
cnt++ ; 

Asat2Cnt++; 

ArrayIndexOut ++ ; 
count — ; 

) 

) 

} 

/* 

At  this  point  we  might  not  have  exhausted  all  the 
packets  in  the  array.  The  variable  count  will 
tell  us  how  many  packets  are  left  in  the  array 
not  yet  scanned.  Therefore  another  loop  is 
needed . 

*/ 

num  left  =  count; 


address [0])  && 
address [1])  && 
address[2])  && 
address[3])  && 
address [4])  && 
address [5])  && 
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while  ((StatASATl  |{  StatASAT12  \\  StatASAT3)  &&  (num  left  > 
0)) 

{ 

/*  filter  for  correct  ASAT  address  */ 

/*  Asat  address  takes  6  bytes  [0-5],  and  byte  10  for  packet 
type  */ 

if  ( 

( PackArray [ i ] . data [ 0 ]  ==  asatl_address[0] )  && 

( PackArray [ i ] . data [ 1 ]  ==  asatl_address[l] )  && 

(PackArray [i] .data[2]  ==  asatl_address[2] )  && 

( PackArray [i] .data [3]  ==  asatl_address[3] )  && 

( PackArray [i] .data [4]  ==  asatl_address [ 4 ] )  && 

(PackArray [ i] .data[5]  ==  asatl_address[5] )  && 

(PackArray[i] .data[10]  ==  8) 

) 

{ 

extract (Al, i, f pi) ; 

PackSave(Al, fpl) ; 
cnt++ ; 

AsatlCnt++; 

ArrayIndexOut++ ; 
nuin_left — ; 


} 


if  (ArrayIndexOut  =*  MaxPacketsInArray) 
ArrayIndexOut  =  0; 

i  =  ArrayIndexOut; 
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while  ( (StatASAT2  \\  StatASAT12  j|  StatASAT3)  &&  (num_left  > 
0)) 

{ 

/*  filter  for  correct  ASAT  address  */ 

/*  Asat  address  takes  6  bytes  [0-5]  and  byte  10  for  packet 
type  */ 


if( 

( PackArray [ i ] . data [ 0 ] 

( PackArray [ i ] . data [ 1 ] 

{ PackArray [ i ] . data [ 2 ] 

( PackArray [ i ] . data [ 3 ] 

( PackArray [ i ] . data [ 4 ] 

( PackArray [ i ] . data [ 5 ] 

( PackArray [ i ] . data [ 10 ] 

) 

{ 

extractl (Al, i, fpl) ; 
PackSave (Al, fpl) ; 
cnt++ ; 

Asat2Cnt++ ; 
ArrayIndexOut++ ; 
num  left — ; 


=  asat2_address[0] )  && 
=  asat2_address[l] )  && 
=  asat 2_address [ 2 ] )  &  & 
=  asat2_address[3] )  && 
=  asat2_address[4] )  && 
=  asat2_address[5] )  && 
==  8) 


} 


if  (ArrayIndexOut  ==  MaxPacketsInArray) 
ArrayIndexOut  =  0; 

i  =  ArrayIndexOut; 


clearscreen (_GCLEARSCREEN) ; 


fclose(fpl^ ; 
reset 3 COMO  > 


/*  close  the  file  they  contains  the  desired 
data  */ 

/*  reset  the  3COM  board  */ 


} 


setbkcolor (OL) ; 
setcolor(7) ; 


/*  set  the  background  color  to  the  initial 
color  */ 

/*  set  color  to  initial  color  */ 
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/***************************************************************** 

Displays  menu  to  choose  foinn 

/■k******'k********'k****1i1f  ************************************  ****** 

char  Screen (void) 

{ 

char  c; 

spawn 1 (  P_WAIT , 

"BE. EXE”, 

"BE", 

"  WINDOW  7,10,22,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  9,20*  ******DATA  COLLECTION  APPLICATION******  ' 
BOLD  " 

"WHITE  ON  BLUE", 

NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  11,26  'Collect  from  A  S  A  T  #1 . 1'  BOLD 

WHITE  ON  BLUE", 

NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  13,26  'Collect  from  A  S  A  T  #2 . 2'  BOLD 

WHITE  ON  BLUE", 

NULL)  ; 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE", 

"  ROWCOL  15,26  'Team  Mode.. . 3'  BOLD 

WHITE  ON  BLUE", 

NULL)  ; 
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spawnl  (  P__WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  17,26  'Solitaire  Mode . 4*  BOLD 

WHITE  ON  BLUE", 

NULL) ; 

spawnl  (  P__WAIT, 

"BE.EXE", 

"BE", 

"  ROWCOL  20,31  'PRESS  A  LETTER:  '  BOLD  CYAN", 

NULL)  ; 

c  =  getchO ;  /*  Give  user  a  chance  to  read  the  screen  */ 

while  (c  <  *1'  1}  '5'  <  c) 

c  »=  getch  ( )  ; 

return (c) ; 

} 
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y**********************************************************  ******* 

THIS  PROMPTS  THE  USER  TO  NAME  AN  ASCII  FILE 

/***************************************************************** 

void  naine_proinpt (char  *ptr,FILE  *fp) 

{ 

char  answer; 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE", 

"SA  reverse”, 

NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  WINDOW  11,10,15,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"ROWCOL  12,12  'ENTER  FILE  NAME:'  BOLD  WHITE  ON  BLUE", 
NULL) ; 

gets(ptr);  /*  get  the  file  name  */ 

if  (!((fp  *  fopen  (ptr,  "r"))  ==  NULL))  /*  check  if  file  does 

exist  */ 

{ 

/* 

In  this  case  the  file  does  exist.  We  want  to  make 
sure  to  ask  the  use  if  we  should  overwrite  the 
file.  In  the  case  where  the  answer  is  no,  the 
user  has  to  enter  another  file  name. 

*/ 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"SA  reverse" , 

NULL)  ; 
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f 


spawnl (  P_WAIT , 

••BE.  EXE” 

"BE” 

”  WINDOW  17,10,21,69  BOLD  CYAN  ON  BLUE  SHADOW 
ZOOM” , 

NULL) ; 

spawnl (  P_WAIT , 

••BE.EXE”, 

••BE”, 

••ROWCOL  18,12  'FILE  ALREADY  IN  USE^  BOLD  WHITE  ON 
BLUE”, 

NULL) ; 

spawnl (  P_WAIT , 

••BE.EXE”, 

••BE”, 

••ROWCOL  20,12  •WOULD  YOU  LIKE  TO  OVERWRITE  THAT 
FILE?  . . . :  ” 

”•  BOLD  WHITE  ON  BLUE”, 

NULL) ; 

do 

{ 

answer  =  tolower (getch() ) ; 
printf (”\n”) ; 

switch  (answer) 

{ 

case  •n^: 

{ 

naine_prompt (ptr,  fp)  ;  /*  Get  a  •s  file  name  */ 

break; 

} 

case  •y • ; 

{ 

remove (ptr) ;  /*  Overwrite  the  file  */ 

break; 

} 

) 

) 

while  (answer  !=  •n^  &&  answer  !=  'y')! 


spawnl (  P_WAIT, 

••BE.EXE”, 

”BE”, 

••SA  reverse” , 
NULL) ; 
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spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  WINDOW  11,10,15,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"ROWCOL  13,12  ’The  data  will  be  saved  into  the  file;  " 
"'  BOLD  WHITE  ON  BLUE", 

NULL)  ; 

_settextposition(  14,52); 

printf ("%s",ptr)  ;  /*  prints  the  file  name  where  the  data  will 

be  stored  */ 

getchO  ; 

} 
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y'ik*'A*A4t***A*4r4t*****AA**4t**4t*A*A*****ilr*]lr*Ar4rA**ik**********ir****ir*4r** 

THIS  IS  USED  TO  GET  THE  ASAT  NUMBER,  FROM  WHICH  PACKETS 

ARE  TO  BE  COLLECTED 

********************-k**************1t1t***************************** 

char  choose_asat (void) 

( 

printf ( "Which  ASAT  do  you  want  to  sample  from  :\n") ; 

printfC"  1-  ASATl  \n"); 
printf("  2-  ASAT2  \n"); 
printfC  3-  TEAM  MODE  \n")  ; 

return (getch ( ) ) ; 

) 
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/**************************************************************** 
niake_choice  : 

Gives  a  pick-a-number  interface.  It: 

Displays  a  menu  and  lets  the  user  enter  a  choice  in  the 
form  of  numbers.  Initialize  the  display  and  saving 
procedure  for  the  variables  that  correspond  to  the 
numbers 

y**************************************************************** 

void  make_choice (void) 

{ 

int  VALUE; 
int  index; 

memset  (FLAG_ARRAY ,  0 ,  sizeof  (FLAG_ARE?AY)  )  ; 

_clearscreen (_GCLEARSCREEN) ; 

/* 

Print  list  of  variables  to  choose  from  in  order  to  extract 
from  the  packet. 

*/ 


printf (" 

LIST 

OF  VARIABLES  : 

\n\n" 

)  ; 

printf (" 

0- 

speed,  V 

18- 

vel.  north,  VFN  \n") ; 

printf (" 

1- 

heading,  H 

19- 

vel.  east,  VFE  \n") ; 

printf (" 

2- 

climb  a . ,  C 

20- 

vel.  up,  VFU  \n"  ) ! 

printf (" 

3- 

roll  a. ,  R 

21- 

X  position,  X  \n") ; 

printf (" 

4- 

mach,  MACH 

22- 

Y  position,  Y  \n") ; 

printf (" 

5- 

a.  psi,PSI 

23- 

Z  position,  Z  \n") ; 

printf ( " 

6- 

a .  theta ,  THT 

24- 

altitude,  ALT  \n") ; 

printf ( " 

7- 

a .  phi ,  PHI 

25- 

afterburners,  NAB\n") ; 

printf (" 

8- 

p.r.  X  coord. 

OXP 

26- 

thrust,  THRUST  \n") ; 

printf (" 

9- 

y.r.  Y  coord. 

OXY 

27- 

brake,  BRAKE  \n"); 

printf (" 

10- 

r.r.  X  coord. 

PX 

28- 

calib.  airspeed,  CAS 

\n”)  ; 

printf (" 

11- 

p.c.s.  defl.. 

DLP 

29- 

gravity,  G  \n") ; 

printf (" 

12- 

r.c.s.  defl.. 

DLR 

30- 

weight,  WEIGHT\n") ; 

printf (" 

13- 

p.  r.,  THPBD 

\n")  ; 

printf (" 

14- 

p.a.  acc.,THPPBD  \n 

; 

printf (" 

15- 

roll  rate,  P\n") ; 

printf (" 

16- 

roll  a.  acc.. 

PD\n" 

)  ; 

printf (" 

17- 

3rd  cpnent  of 

acc. , 

ABP\n 

\n  ")  ; 

printf ( 

II 

%d- 

To  choose  all  the  variables 

\n  \n 

Allvariables) ; 


printf  ("ENTER  THE  VARIABLES  YOU  ARE  INTERESTED  IN  SAVING:  \n")  ; 
index  =  0 ; 
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/*  this  loop  will  allow  you  to  take  in  consideration  all  the 
variables  (  when  the  value  Allvariables  is  entered  */ 


while  (scant ("td", & VALUE)  !=  0) 

{ 

if  (VALUE  “  Allvariables) 

{ 

for  (index  =*  0;  index  <  (Allvariables-1)  ;  index++) 
FLAG_ARRAY[ index]  =  1; 
break; 

) 

FLAG_ARRAY[ VALUE]  =  1; 

) 

} 
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/it*************************************************************** 

screenone  function 

this  function  is  used  to  set  up  the  run-time  display  screen 
***************************************************************** 

/*  This  procedure  displays  all  variables  chosen  */ 

void  screenOne (void) 

{ 

int  COUNT,  COUNTl;  /*  COUNT  and  COUNTl  will  indicate  line 

numbers  for  the  display  set  up  */ 


make_choice() ; 

_clearscreen(_GCLEARSCREEN) ; 

_clearscreen(_GCLEARSCREEN) ; 

_settextposition  (1,1); 

printf ("Packet  Timestamp:  \n  \n") ; 

COUNT  =  1; 

COUNTl  =  1; 


if  (FLAG_ARRAY[0]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf ("speed  V:  \n”) ; 

} 


if  ( FLAG_ARRAY [ 1 3  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf ( "heading  H:  \n") ; 


if  (FLAG_ARRAYC23  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf ("climb  a.  C:  \n") ; 

} 
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if  { FLAG_ARRAY [ 3 ]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printfC'roll  a.  R:  \n'')  ; 

} 

if  (FLAG_ARRAY[4]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printfC'mach  MACH:  \n")  ; 

} 

if  (FLAG_ARRAY[5]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf("psi  a.  PSI:  \n”) ; 

) 

if  ( FLAG_ARRAY [ 6 ]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf ("theta  a.THT:  \n") ; 

} 

if  (FLAG_ARRAYC7]  =»  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printfC'phi  a.  PHI:  \n")  ; 

) 

if  ( FLAG_ARRAY [ 8 ]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf ("pitch  r.OXP:  \n") ; 

} 
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if  ( FLAG_ARRAY t 9 ]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printfC'yaw  r,  OXY: 

) 

if  (FLAG_ARRAY[10]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf ( "roll  r.  PX: 

) 

if  (FLAG_ARRAY[11]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf ( "p . c . s . d . DLP : 

} 

if  (FLAG_ARRAY[12]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf ("r, c. s.  DLR: 

} 

if  (FLAG_ARRAY[13]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf ("p.r.  THPBD: 

) 

if  (FLAG_ARRAY(14]  ==  1) 

( 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf ( "p . a . aTHPPBD: 

) 

if  (FLAG_ARRAY[15]  ==  1) 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 
printf ("roll  r.  P: 

} 


\n”)  ; 


\n")  ; 


\n")  ; 


\n»)  ; 


\n")  ; 


\n”)  ; 


\n")  ; 
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1) 


if  (FLAG_ARRAY[16]  == 

{ 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf  C'r.a.a.  PD:  \n'')  ; 

) 

if  (FLAG_ARRAY[17]  ==  1) 

( 

COUNT++ ; 

_settextposition  (COUNT, 1); 

printf ("3rd  c.a.ABP:  \n")  ; 

) 

if  (FLAG_ARRAY[18]  ==  1) 

{ 

COUNT 1  ++; 

_ser.textposition  (COUNT1,40)  ; 

prinrx'"vel.  north  VFN:  \n") 

} 


if  (FLAG_ARRAY[19]  ==  1) 

{ 

COUNT 1  ++; 

_settextposition  (COUNTl, 40) ; 

printf ("vel.  east  VFE:  \n") 

) 

if  (FLAG_ARRAY[20]  ==  1) 

{ 

COUNTl  ++•; 

_settextposition  (COUNTl, 40); 

printf ("vel.  up  VFU;  \n") 

) 

if  (FLAG_ARRAY(213  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40); 

printf ("X  position  X:  \n") 

) 

if  (FLAG_ARRAY[22]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40); 

printf ("Y  position  Y;  \n") 

) 
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if  (FIAG_ARRAY[23]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNT1,40); 

printf("Z  position  2:  \n'')  ; 

} 

if  (FLAG_ARRAY[24]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNT1,40); 

printf ("altitude  ALT:  \n") ; 

) 

if  (FLAG_ARRAY[25]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40); 

printf ("afterburners  NAB:  \n") ; 

) 

if  ( FLAG_ARRAY [ 2 6 ]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl,40); 

printf ("thrust  THRUST:  \n")  ; 

> 

if  (FLAG_ARRAY[27]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40); 

printf ("brake  BRAKE  :  \n") ; 

) 

if  (FLAG_ARRAY[28]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40); 

printf ("calib.  airs  CAS;  \n") ; 

} 
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if  (FLAG_ARRAY[29]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40) ; 

printf ("gravity  G:  \n") ; 

) 

if  (FIAG_ARRAy[30]  ==  1) 

{ 

COUNTl  ++; 

_settextposition  (COUNTl, 40); 

printf ( "weight  WEIGHT :  \n" ) ; 

) 
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/***************************************************************** 
DisplayScreenOne  : 

Displays  to  the  screen  the  scrolling  values  of  the 
variables  selected  by  the  user.  The  values  are 
displayed  next  to  the  name  of  the  variables 
***************************************************************** 

void  DisplayScreenOne (PackDat  *Dat) 

{ 

int  COUNT 1  =  1; 
int  C0UNT2  =  1; 

_settextposition(l, 25)  ; 

printf  (''%2d;%2d.%2d''  ,mins,  secs,  milsecs)  ; 

if  (FLAG_ARRAY[0]  ==  1) 

{ 

COUNTl  ++; 

/*  V  */ 

_settextposition (COUNTl, 25) ; 
printf  ("%5.3f  , Dat->varV)  ; 

/*Speed*/  _settextposition (11 , 30) ;  printf (”%5 . 3f" , 

Dat->varSPEED) ; 

if  (FLAG_ARRAY[1]  =*=  1) 

I 

COUNTl  ++; 

/*  H  */ 

_settextposition (COUNTl, 25)  ; 

printf  (''%5.3f  ",  ( (Dat->varH*90.0)  /  Convert)); 

) 

if  (FLAG_ARRAY[2]  «  1) 

{ 

COUNTl  ++; 

/*  c  */ 

_settextposit ion (COUNTl, 25) ; 

printf ("%5.3f  ", (((32767-Dat->varC)*90.0)/  Convert)); 

) 

if  ( FLAG_ARRAY [ 3 ]  ==  1) 

{ 

COUNTl  ++; 

/*  R  */ 

_settextposition (COUNTl, 25) ; 

printf ("%5.3f  ",  ( (Dat->varR*90.0)/  Convert  )); 

) 
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if  (FLAG_ARRAY[4]  ==  1) 

{ 

COUNTl  ++; 

/*MACH*/ 

_settextposit ion (COUNTl, 25) ; 
printf  (”%5.3f  , Dat->varMACH)  ; 

} 

if  (FLAG_ARRAY[5]  ==  1) 

{ 

COUNTl  ++; 

/*PSI*/ 

_settextposition (COUNTl, 25) ; 
printf ("%5.3f  " , Dat->varPSI) ; 

} 

if  (FLAG_ARRAY[6]  ==  1) 

{ 

COUNTl  ++; 

/*THT*/ 

_settextposition (COUNTl, 25) ; 
printf  ("%5.3f  , Dat->varTHT)  ; 

} 

if  (FLAG_ARRAY[7]  ==  1) 

{ 

COUNTl  ++; 

/*PHI*/ 

_settextposition (COUNTl, 25) ; 
printf  (''%5.3f  " , Dat->varPHI)  ; 

} 

if  (FLAG_ARRAY[8]  ==  1) 

{ 

COUNTl  ++; 

/*OXP*/ 

_settextpos it ion (COUNTl, 25) ; 
printf ("%5. 3f  ” , Dat->varOXP) ; 

> 

if  (FLAG_ARRAY[9]  ==  1) 

{ 

COUNTl  ++; 

/*OXYV 

_settextposition (COUNTl, 25)  ; 
printf (”%5.3f  ",Dat->varOXY) ; 

} 
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if  (FLAG_ARRAY[10]  ==  1) 

{ 

COUNTl  ++; 

/*PX*/ 

_settextposition (COUNTl, 25) ; 
printf ( "tS . 3 f  ”, Dat->varPX) ; 

} 

if  (FLAG_ARRAY[11]  ==  1) 

{ 

COUNTl  ++; 

/*DLP*/ 

_settextposition (COUNTl, 25) ; 
printf (”%5. 3 f  " , Dat->varDLP) ; 

} 

if  (FLAG_ARRAY[12]  ==  1) 

{ 

COUNTl  ++; 

/*DLR*/ 

_settextpos it ion (COUNTl, 25) ; 
printf ("%5.3f  " , Dat->varDLR) ; 

} 

if  (FLAG_ARRAY[13]  ==  1) 

{ 

COUNTl  ++; 

/*THPBD*/ 

_settextposition (COUNTl, 25) ; 
printf (”%5. 3 f  ”,Dat->varTHPBD) ; 

} 

if  (FLAG_ARRAY[14]  ==  1) 

{ 

COUNTl  ++; 

/★THPPBD*/ 

_settextposition (COUNTl, 25) ; 
printf (”%5. 3 f  ” , Dat->varTHPPBD) 

} 

if  (FLAG_ARRAY[15]  ==  1) 

{ 

COUNTl  ++; 

/*p*/ 

_settextposition (COUNTl, 25) ; 
printf (”%5. 3f  " , Dat->varP) ; 
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if  (FLAG_ARRAY[16]  ==  1) 

{ 

COUNTl  ++; 

/*PD*/ 

_settextposition (COUNTl, 25) ; 
printf ( "ts . 3 f  ", Dat->varPD) ; 


if  ( FLAG_AiyRAY  [  17  ]  ==  1) 

{ 

COUNTl  ++; 

/*ABPV 

_settextposition (COUNTl, 25) ; 
printf (”%5. 3f  " , Dat->varABP) ; 


if  (FLAG_ARRAY[18]  ==  1) 

{ 

COUNT2++ ; 

/*VFN*/ 

_settextposition(COUNT2 , 60) ; 
printf  (••%5.3f  ",  Dat->varVFN)  ; 

} 

if  ( FLAG_ARRAY [ 19 ]  ==  1) 

{ 

COUNT2++; 

/*VFEV 

settextposition(COUNT2,60) ; 
printf ("%5.3f  ",  Dat->varVFE) ; 

} 

if  (FLAG_ARRAY[20]  ==  1) 

{ 

COUNT2++ ; 

/*VFU*/ 

_s€ttextposition(C0UNT2,60) ; 
printf ("%5. 3 f  ",  Dat->varVFU) ; 

) 

if  (FLAG_ARRAY[21]  ==  1) 

{ 

COUNT2++; 

/*  X  */ 

_settextposition(COUNT2 , 60) ; 
printf ("%5. 3f  " , (Dat->varX/256. 0) )  ; 

) 
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if  (FLAG_ARRAY[22]  ==  1) 

{ 

C0UNT2++; 

/*  y  V 

_settextposition(C0UNT2, 60) ; 
printf  ("%5.3f  (Dat->varY/256.0) )  ; 

) 

if  (FLAG_AKRAY[23]  ==  1) 

{  COUNT2++  ; 

/*Z*/ 

_settextposition(COUNT2, 60) ; 
printf  (•'%5.3f  ",  (Dat->varZ/256.0) )  ; 

) 

if  (FLAG_ARRAY[24]  ==  1) 

{ 

COUNT2++; 

/*ALT*/ 

_settextposition(C0UNT2,60) ; 

printf (”%5.3f  ", (Dat->varAltx256/256 . 0) ) ; 

} 

if  (FLAG_ARRAY[25]  ==  1) 

{ 

COUNT2++ ; 

/*NABV 

_settextposition(COUNT2,60) ; 
printf (”%5.3f  ",  Dat->varNAB) ; 

} 

if  (FLAG_ARRAY[26]  ==  1) 

{ 

COUNT2++ ; 

/*THRUST*/ 

_settextposition (COUNT2 , 60) ; 
printf (”%5.3f  ",  Dat->varTHRUST) ; 

> 

if  (FLAG_ARRAY[27]  ==  1) 

{ 

COUNT2++; 

/♦BRAKE*/ 

_settextposition(COUNT2,60) ; 
printf ("%d  ",  Dat->varBRAKE) ; 
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if  (FLAG_ARRAY[28]  ==  1) 

{ 

C0UNT2++ ; 

/*CAS*/ 

_settextposition(C0UNT2,60) ; 
printf(”%d  •*,  Dat->varCAS)  ; 

} 

if  (FLAG_ARRAY[29]  ==  1) 

{ 

C0UNT2++ ; 

#if  0 

DLR  _settextposition{18, 60) ; 
printf ("%5.3f  ”,  Dat->varDLR) ; 
#endif 

/*GV 

_settextposition(C0UNT2,60) ; 
printf (”%d  ”,  Dat->varGforce) ; 

) 

if  (FLAG_ARRAY[30]  ==  1) 

{ 

COUNT2++; 

/♦WEIGHT*/ 

__settextposition(COUNT2,60) ; 
printf (”%d  ”,  Dat->varWEIGHT) ; 

} 


I 
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/***********************************************************/ 

/*  extract  function  :  extracts  data  from  a  packet  */ 

/***********************************************************/ 

/* -  SAVE  VARIABLES  OF  INTEREST  FROM  PACKET - */ 

void  extract 1 (PackDat  *Dat,  int  i,  FILE  *fpl) 

( 

unsigned  long  tempVar; 

/*  Source  ethernet  address  is  in  bytes  0  to  5.  */ 

Dat->in_address [ 0 ]  =  PackArray [ i ] . data [ 0 ] ; 

Dat->in_address[l]  =  PackArray[i] .data[l] ; 

Dat->in_address[2]  =  PackArray [ i ]. data [ 2 ] ; 

Dat->in_address[3]  =  PackArray [ i ]. data [ 3 ] ; 

Dat->in_address [ 4 ]  =  PackArray [ i ] . data [ 4 ] ; 

Dat->in_address[5]  =  PackArray[i] .data[5] ; 

Dat->TimeStamp  =  PackArray [ i] .packet_s tamp;  /*  TimeStamp  of 

pkt  rcvd  */ 

Dat->PLength  =  PackArray[ i] .packet_length;  /*  packet 

length  */ 

/*  transform  ticks  to  mins,  secs,  milsecs  */ 

tempVar  =  (  ( (Dat->TimeStamp)  -  tempi)  /  998.53);  /*  gets 

clock  ticks  */ 

mins  =  (int)  (tempVar  /  60000); 

secs  =  (int)  (fmod( tempVar,  60000)  /  1000); 

milsecs  =  ^nt)  (fmod(fmod( tempVar,  60000),  1000)); 

_settextposition ( 10 , 16)  ; 

printf ( "%2d; %2d, %2d"  ,mins,  secs,  milsecs); 

/*  The  complete  meaning  of  the  following  variables  is  given 
above  */ 

/*  in  the  ASAT  packet  structure.  */ 

/*  For  example:  X  is  plane  x  coordinate,  Y  is  plane  y 
coordinate,  */ 

/*  Z  is  plane  Z  coordinate,  H  for  heading,  C  for  climb  and 

ETC ....  */ 

#if  0 

Dat->varX  =  *((long  far  *)  SPackArray [i] .data[14] )  ;  /*  X  */ 

Dat->varY  =  *((long  far  *)  &PackArray[i] .data[18] ) ;  /*  Y  */ 

Dat->varZ  =  *((long  far  *)  &Pac]cArray[i]  .data[22] )  ;  /*  Z  */ 

#endif 
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Dat->varH  =*  *((unsigned  int  far  *)  &PackArray[i]  .data[26] )  ;  /* 
H  */ 

_settextposition(16, 14) ; 

printfC*  %5.3f  •' ,  (  float)  ( (Dat->varH*90. 0)/  Convert  ) )  ; 

#if  0 

Dat->varC  =  *((short  far  *)  fitPackArray[i] .data[28] ) ;  /*  C 
Dat->varR  =  *((short  far  *)  &Pac)cArray[i]  .data[30] )  ;  /*  R 
#endif 

Dat->varSPEED  =  *((long  far  *)  &PackArray[i] .data[32] ) ;  /* 

STEED'/ 

_settextposition(12 , 12) ; 

printf  ('•%5.3f'',  (float)  (Dat->varSPEED/256. 0) )  ; 

#if  0 

Dat->varV  =  *{(double  far  *) &PackArray[i] .data[60] ) ; 

/*  V  V 

Dat->varVFN  =  *((double  far  *) &PackArray[ i] . data [60+8 ]) ; 
/*  VFN  V 

Dat->varVFE  =  *((double  far  *) &PackArray[i] .data [60+16] ) ; 
/*  VFE  */ 

Dat->varVFU  =  *((double  far  *) SPackArray [i] .data[60+24] ) ; 
/*  VFU  V 

Dat->varMACH=  *((double  far  *) &PackArray[i] .data[60+32] ) ; 
/*  MACH  */ 

Dat->varPSI  =  *((double  far  *) &PackArray[ i] .data [60+40] ) ; 
/*  PSI  */ 

Dat->varTHT  =  *( (double  far  *) &PackArray[ i] .data[ 60+48] ) ; 
/*  THT  */ 

Dat->varPHI  =  *((double  far  *) &PackArray[i] .data [60+56] ) ; 
/*  PHI  */ 

Dat->varOXP  =  *((double  far  *) &PackArray[i] .data [60+64] ) ; 
/*  OXP  */ 

Dat->varOXY  =  *((double  far  *) &PackArray[i] .data[60+72] ) ; 
/*  OXY  */ 

Dat->varPX  =  *((double  far  *) &PackArray[i] .data [60+128 ]) ; 
/*  PX  V 

Dat->varDLP  =  *( (double  far  *) &PackArray[i] .data[60+80] ) ; 
/*  DLP  */ 

Dat->varDLR  =  *((double  far  *) &PackArray[i] .data [60+88 ]) ; 
/*  DLR  */ 

Dat->varTHPBD=  *( (double  far  *) &PackArray[i] .data [60+96] ) ; 
/*  THPBD  */ 

Dat->varTHPPBD=  *( (double  far 

*) SPackArray[i] .data [60+104] ) ;  /*  THPPBD  */ 
Dat->varP  =  *((double  far  *)  &PackArray[i] .data [60+112] ) ; 

/*  P  */ 

Dat->varPD  =  *( (double  far  *)  &PackArray[ i] .data [ 60+120] ) ; 
/*  PD  V 

Dat->varABP  =  *( (double  far  *)  &PackArray[i] .data [60+136] ) ; 
/*  ABP  */ 

Dat->varTHRUST=  *( (double  far 

_ *) &PackArray[i] .data[60+144] ) ;  /*  THRUST  */ 
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Dat->varNAP  »  *( (double  far  *)  SPackArray [i] . data [ 60+152 ] ) 
/*  NAP  */ 
fendif 

/♦ALT*/ 

Dat->varAltx2 56  =  *( (unsigned  long  far  * 

4PackArray[i] .data [60+160] ) ; 
_settextposition(14, 15) ; 

printf (•*%5.3f  ",(  float)  (Da t-> varAl tx2 56/256.0)); 
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#if  0 

/*CASV 

Dat->varCAS  =  *( (unsigned  short  far  *) 

fiPackArray [i] .data [60+164] ) ; 

/*NAB*/ 

Dat->varNAB  =  *( (unsigned  short  far  *) 

&PackArray[i] -data [60+166] ) ; 

/♦BRAKE*/ 

Dat->varBRAKE  =  *( (unsigned  short  far  *) 

&PackArray[i] .data [60+168 ] ) ; 

/*G*/ 

Dat->varGforce  =  *( (unsigned  short  far  *) 

SPackArray [i] .data[60+170] ) ; 

/♦Weight*/ 

Dat->varWEIGHT  =  ♦( (unsigned  short  far  ♦) 

SPacJcArray  [i]  .data [60+172] )  ; 

#endif 

/♦missile*/  Dat->varMISSILE  =  ♦((  char  far  ♦) 

&PackArray[i] .data [241] ) ; 

bitl  =(((  Dat->varMISSILE)  &  0x80)  /80) ; 
bit2  =(((  Dat->varMISSILE)  &  0x40)  /40) ; 
bit3  =(((  Dat->varMISSILE)  &  0x20)  /20) ; 
bit4=  (((  Dat->varMISSILE)  &  0x10)  /lO); 

_settextposition(18, 18) ;printf ("td” , Asat2Cnt) ; 
_settextposition(22 , 18)  ;printf  (”%d'' ,  Missilecntl)  ; 

/♦  we  have  to  check  the  status  of  the  missile  for  each  data 
packet  ♦/ 

BitStatusS  =  CheckBit(bitl,BitStatus5/2) ; 

BitStatus6  =  CheckBit (bit2,BitStatus6,2) ; 

BitStatus7  =  CheckBit (bit3 , BitStatus7 , 2 ) ; 

BitStatus8  =  CheckBit (bit4,BitStatus8, 2) ; 

/♦  the  bit  51  will  allow  us  to  check  if  an  explosion  has 
occurred  ♦/ 

/♦  (  crash,  hit,  explosion) .  If  val  ==  1  then  explosion  ♦/ 

Dat->varEXP  =  ♦((  char  far  ♦)  &PackArray[i] .data[51] ) ; 
val  =  (((  Dat->varEXP)  &  0x40)  /  40); 

/♦  if  the  explosion  bit  is  1  and  the  flying  mode  is  team  then 
one  of  the  ASAT  has  crashed  based  on  the  ethernet  address  ♦/ 

if  ((val  ==  1)  &&  (StatASAT12  ==  TRUE)) 

{ 

spawnl (  P_WAIT , 

"BE.EXE", 

"BE", 

"SA  reverse", 

NULL)  ; 
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spawnl(  P_WAIT, 

"BE. EXE", 

"BE", 

"  WINDOW  11,10,15,69  BOLD  CYAN  ON  RED  SHADOW  ZOOM", 
NULL) ; 

spawnl(  P_WAIT, 

"BE.EXE", 

"BE", 

"ROWCOL  12,12  •  ******B  I  N  G  O  ******  " 

"BOLD  WHITE  ON  RED", 

NULL) ; 

while  {I(kbhit())) 
spawnl (  P_WAIT , 

"BE.EXE", 

"BE", 

"ROWCOL  13,12  •  " 

"ASAT  #2  IS  DEAD 'BOLD  WHITE  ON  RED", 

NULL)  ; 


reset 3 COMO  ; 
fclose{fpl) ; 
exit (0)  ; 


_settextposition(20, 19)  ; 
printf("%d  ",  Dat->PLength) ; 

/*RealTimeStamp*/ 

#if  0 

for  (j  =0;  j  <  6;  j++) 

Dat->RTStanip[  j  ]  =  PackArray[i]  .clata[60+174+j  ] ; 

#endif 


} 


/*MFF*/ 

Dat->varMFF  *  *( (unsigned  short 

&PackArray[i] .data [60+180 ] ) ; 


far 


*) 
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/***********************************************************/ 
/*  extract  function  ;  extracts  data  from  a  packet  */ 

/***********************************************************/ 

/* -  SAVE  VARIABLES  OF  INTEREST  FROM  PACKET - */ 

void  extract (PackDat  *Dat,  int  i  ,  FILE  *fpl) 

{ 

unsigned  long  tempVar; 

Dat->in_address [ 0 ]  =  PackArray [ i ] . data [ 0 ] ; 
Dat->in_address[l]  =  PackArray [i] .data [1] ; 
Dat->in_address[2]  =  PackArray[i] .data[2] ; 

Dat-> in_addr ess [ 3 ]  =  PackArray [ i ] . data [ 3 ] ; 

Dat->in_address [4 ]  =  PackArray [i] .data[4] ; 
Dat->in_address[5i  =  PackArray [i] .data [5] ; 

Dat->TimeStamp  =  PackArray [ i] .packet_stamp; 

Dat->PLength  =  PackArray [i] .packet_length; 

/*  Convert  ticks  into  mins,  secs,  milsecs  */ 
tempVar  =  ( (Dat->TimeStamp)  -  tempi)  /  998.53; 
mins  =  (int)  (tempVar  /  60000); 
secs  =  (int)  ( f mod (tempVar,  60000)  /  1000); 
milsecs  =  (int)  ( f mod ( f mod (tempVar,  60000),  1000)); 

_settextposition(10, 57)  ; 

printf (''%2d:%2d.%2d"  ,mins,  secs,  milsecs); 


#if  0 


/*  X  */ 

SPackArray [ i ] . data [ 14 ] ) 

Dat->varX 

• 

t 

=  * ( (long 

far 

*) 

/*  Y  */ 

SPackArray [ i] .data [18] ) 

Dat->varY 

t 

=  * ( ( long 

far 

*) 

/*  Z  */ 

Dat->varZ 

=  * ( ( long 

far 

*) 

SPackArray [ i ] . data [22]) ; 

#endif 

/*  H  V 

Dat->varH  =  *(  (unsigned  int  far  *) 

SPackArray [ i ] . data [26]) ; 

_settextposition ( 16 , 54 ) ; 

printf  ("  %5.3f  •' ,  (  float)  ( (Dat->varH*90 . 0)  /  Convert)); 


#if  0 


/*  c 

*/  Dat->varC 

=  * ( (short 

far  *) 

&PackArray[i] 

.data [28] )  ; 

/*  R 

*/  Dat->varR 

=  * ( ( short 

far  *) 

SPackArray [ i ] . data [30]) ; 

#endif 

/♦SPEED*/ 

Dat->varSPEED  =  *((long  far  *)  &PackArray[i] .data[32] )  ; 
_settextposition (12,52)  ; 

printf  (''%5.3f",  (float)  (Dat->varSPEED/256 . 0)  )  ; 
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#if  0 

/*  V  V 

Dat->varV  =  *((double  far  *)  &PackArray[i] .data[60] ) ; 
/*VFN*/ 

Dat->varVFN  =  *( (double  far  *)  SPackArray [i] .data[60+8] ) ; 
/*VFE*/ 

Dat->varVFE  =  *((double  far  *)  &PackArray[i] .data [60+16] ) ; 
/*VFU*/ 

Dat  •>varVFU  =  *( (double  far  *)  &PackArray [ i] . data [ 60+24 ] ) ; 
/*MACH*/ 

Dat->varMACH  =  *(  (double  far  *)  SPackArray  [i]  . data [ 60+32 ] )  ; 
/*PSI*/ 

Dat->varPSI  =  *( (double  far  *)  &PackArray[i] .data [60+40] ) ; 
/*THT*/ 

Dat->varTHT  =  *( (double  far  *)  &PackArray[i] .data[60+48] ) ; 
/*PHIV 

Dat->varPHI  =  *( (double  far  *)  &PackArray[i] .data [60+56] ) ; 
/*OXP*/ 

Dat->varOXP  =*( (double  far  *)  &PackArray[i] .data [60+64] ) ; 
/*OXY*/ 

Dat->varOXY  =  *( (double  far  *)  &PackArray[i] .data [60+72] ) ; 
/*PX*/ 

Dat->varPX  =  *((double  far  *) 

&PackArray [ i] .data[60+128] )  ; 

/*DLP*/ 

Dat->varDLP  =  *( (double  far  *)  &PackArray[i] .data [60+80 ] ) ; 
/*DLR*/ 

Dat->varDLR  *  *( (double  far  *)  &PackArray[i] .data [60+88 ] ) ; 
/*THPBD  */ 

Dat->varTHPBD  =  *( (double  far  *) 

&PackArray [ i ] . data [ 60+96 ] )  ; 

/*THPPB*/ 

Dat->varTHPPBD  =  *( (double  far  *) 

SPackArray [ i ] . data [ 60+104 ] ) ; 

/*  P  V 

Dat->varP  =  *( (double  far  *) 

SPackArray [ i ] . data [ 60+112 ] ) ; 

/*PD*/ 

Dat->varPD  =  *( (double  far  *) 

&PackArray [ i] .data [60+120] ) ; 

/*ABP*/ 

Dat->varABP  =  *((double  far  *) 

&Pac)cArray [ i]  .data[60+l36] )  ; 

/♦THRUST*/ 

Dat->varTHRUST  =  *( (double  far  *) 

&PackArray[i] .data [60+144] ) ; 

/*NAP*/ 

Dat->varNAP  =  *((double  far  *) 

&PackArray[i] .data [60+152] ) ; 
lendif 

/♦ALT*/ 

Dat->varAltx256  =  *( (unsigned  long  far  ♦) 

iPackArray[i] .data[ 60+160] ) ; 

_settextposition (14,55) ; 

printf  ("%5.3f  '*,  (  float)  (Dat->varAltx256/256. 0) )  ; _ 
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♦((unsigned  short  far  *) 


#if  0 

/*CAS*/ 

Dat->varCAS 

&PaclcArray[i] . data [  60+164  ] )  ; 
/*NAB*/ 


Dat->varNAB  = 

♦ ( (unsigned 

short 

far 

*) 

&PackArray [ i] .data[60+166] )  ; 
/♦BRAKE*/ 

Dat->varBRAKE  = 

♦ ( (unsigned 

short 

far 

*) 

&PackArray[i] .data [60+168] ) ; 

/♦G*/ 

Dat->varGforce  = 

♦ ( (unsigned 

short 

far 

*) 

&PackArray[i] .data [60+170] ) ; 
/♦Weight*/ 

Dat->varWEIGHT  = 

♦ ( (unsigned 

short 

far 

*) 

SPackArray [i] . data [ 60+172 ] ) ; 
#endif 


/♦missile*/ 

Dat->varMISSILE  =  ♦((  char  far  ♦)  &PaclcArray[i]  .data  [241] )  ; 

/♦  The  ASAT  has  four  missiles.  Track  which  have  been  fired  ♦/ 

bitl  =(((  Dat->varMISSILE)  &  0x80)  /80) ; 
bit2  ==(((  Dat->varMISSILE)  &  0x40)  /40)  ; 
bits  =(((  Dat->varMISSILE)  &  0x20)  /20) ; 
bit4=  (((  Dat->varMISSILE)  &  0x10)  /lO) ; 

_settextposition(18, 57)  ;  printf  (”%d'' , AsatlCnt)  ; 
_settextposition(22 , 57)  ;  printf  ('•%d'',Missilecnt)  ; 

/♦  flag  carries  the  value  of  the  returned  function,  that 
decides 

whether  a  new  missile  is  launched  or  an  old  one  is  in  the 

air  ♦/ 

BitStatusl  =  CheckBit(bitl,BitStatusl,  1) ; 

BitStatus2  =  CheckBit  (bit2  ,BitStatus2 , 1) 

BitStatus3  =  CheckBit (bit3 ,BitStatus3 , 1) ; 

BitStatus4  =  CheckBit (bit4 , BitStatus4 , 1) ; 

/♦Explosion*/ 

Dat->varEXP  =  ♦((  char  far  ♦)  &PackArray[i] .data[51] ) ; 

/♦  Check  the  explosion  flag.  If  flag  is  set,  an  explosion  has 
occurred.  ♦/ 

val  =  (((  Dat->varEXP)  &  0x40)  /  40); 
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if  ((val  ==  1)  &&  (StatASAT12  ==  TRUE)) 

{ 

/* 

If  the  explosion  bit  is  set  and  Status  is  team  then 
one  of  the  ASATs  has  crashed  based  on  the  ASAT  id 

*/ 

spawnl(  P_WAIT, 

"BE. EXE", 

"BE", 

"SA  reverse", 

NULL)  ; 

spawn 1 (  P_WAIT, 

"BE. EXE", 

"BE", 

"  WINDOW  11,10,15,69  BOLD  CYAN  ON  RED  SHADOW  ZOOM", 
NULL) ; 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE", 

"ROWCOL  12,12  '  ******B  I  N  G  O  *****' 

•I 

"BOLD  WHITE  ON  RED", 

NULL) ; 

while  (IkbhitO) 

spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"ROWCOL  13,12  '  ASAT  #1  IS 

DEAD '  " 

"BOLD  WHITE  ON  RED", 

NULL)  ; 

reset 3  COM  0  ; 
f close ( fpl) ; 
exit(O) ; 

} 

_settextposit ion (20,59) ; 
printf("%d  ",  Dat->PLength) ; 

/*MFF*/ 

Dat->varMFF  =  *( (unsigned  short  far  *) 

&PaclcArray[i] . data [ 60+180 ] )  ; 

) 
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/*****************************************************/ 

/*  packsave  function  :  saves  packet  details  in  a  file*/ 

/*****************************************************/ 

void  Packsave (PackDat  *Dat,  FILE  *fpl) 

{ 

if  (counter  ==  0) 

{ 

fprintf (fpl, "This  file  contains  the  following  information: 

") ; 

fprintf (fpl,  "\n") ; 
fprintf ( fpl , "Plane  Id" ) ; 
fprintf ( fpl , " ,  TimesTamp" ) ; 

#if  0 

if  (FLAG_ARRAY[0]  ==  1) 

#endif 

fprintf ( fpl , " ,  speed" ) ; 

#if  0 

if  ( FLAG_ARRAY [ 1 ]  ==  1) 

#endif 

fprintf (fpl, " ,  heading"); 

if  ( FLAG^ARRAY [ 2 ]  ==  1) 

fprintf (fpl, " ,  climb  angle"); 

if  ( FLAG_ARRAY [ 3 ]  ==  1) 

fprintf (fpl ," ,  roll  angle"); 

if  (FLAG_ARRAY[4]  ==  1) 

fprintf (fpl, ",  mach") ; 

if  ( FLAG_ARRAY [ 5 ]  ==  1) 
fprintf (fpl, " ,  psi") ; 

if  (FLAG_ARRAY[6]  ==  1) 

fprintf ( fpl , " ,  theta" ) ; 

if  (FLAG_ARRAY[7]  ==  1) 
fprintf (fpl, " ,  phi"); 

if  (FLAG_ARRAY[8]  ==  1) 

fprintf (fpl, " ,  p.  r.  X  coord."); 
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if 

(FLAG_ARRAY[9] 

==  1) 

fprintf  (fpl,  ** , 

p .  r .  Y  coord . ” ) ; 

if 

(FLAG  AKRAY[10] 

==  1) 

fprintf (fpl,”. 

r.  r .  X  coord. ”) ; 

if 

(FIAG_ARRAY[11] 

==  1) 

fprintf (fpl, " , 

pitch  c.  s.  defl.” 

if 

(FLAG_ARRAY[12] 

==  1) 

fprintf (fpl,”. 

r .  c.  s.  defl . ”) ; 

if 

(FLAG_ARRAY[13] 

==  1) 

fprintf (fpl, " , 

pitch  rate”) ; 

if 

(FLAG_ARRAY[14] 

==  1) 

fprintf (fpl, ”, 

pith  a .  acc .  ; 

if 

( FIAG_ARRAY [ 15 ] 

==  1) 

fprintf (fpl,”, 

roll  rate”) ; 

if 

(FLAG  ARRAY [16] 

==  1) 

fprintf (fpl, ”, 

roll  a.  acc.”); 

if 

( FLAG_ARRAY [ 17 ] 

==  1) 

fprintf (fpl, ” , 

3rd  cpnent  of  acc.' 

if 

(FLAG_ARRAY[18] 

==  1) 

fprintf (fpl, ”, 

vel.  north”); 

if 

( FLAG_ARRAY [ 19 ] 

==  1) 

fprintf (fpl, ” , 

vel.  east”); 

if 

(FLAG_ARRAY[20] 

==  1) 

fprintf (fpl, ”, 

vel.  up”) ; 

if 

(FIAG_ARRAY[21] 

==  1) 

fprintf (fpl, ”, 

X  position”) ; 

if 

(FLAG_ARRAY[22] 

==  1) 

fprintf (fpl, ”, 

Y  position”) ; 

if 

(FLAG_ARRAY[23] 

==  1) 

fprintf (fpl,”. 

Z  position”) ; 

#if  0 

if  (FLAG_ARRAY[24]  ==  1) 
#endif 
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fprintf (fpl, altitude"); 


if 

(FLAG_ARRAY[25] 
fprintf (fpl, ", 

==  1) 

afterburner  stage") ; 

if 

(FLAG_ARRAY[26] 
fprintf (fpl, ", 

==  1) 

engine  thrust") ; 

if 

(FIAG_ARRAY[27] 
fprintf (fpl, " , 

==  1) 
brake") ; 

if 

(FIAG_AIIRAY[28] 
fprintf (fpl,". 

==  1) 

calib.  airspeed") ; 

if 

(FLAG_ARE?AY[29] 
fprintf (fpl, " , 

==  1) 

gravity") ; 

if 

(FLAG_ARRAY[30] 

==  1) 

f print f ( f pi , " ,  weight" ) ; 


fprintf(fpl,  ",  Missile  Info."); 
fprintf(fpl,  ",  Missilecnt"); 
fprintf (fpl, " ,  PacketLength") ; 
fprintf(fpl,  "\n") ; 

counter  =1; 

} 

if  (Dat->in_address[5]  ==  Oxea  ) 
fprintf (fpl, "%2x  \t",  1) ; 

else 

fprintf (fpl, "%2x  \t",  2); 

fprintf (fpl, "  %2d;%2d.%3d  \t",  mins,  secs,  milsecs) ; 

#if  0 

if  (FLAG_ARRAY[0]  ==  1) 

#endif 

fprintf (fpl, "%5. 3 f  \t  ",  (  float)  ( (Dat->varSPEED)  /  256.0)); 

#if  0 

if  (FIAG_ARRAY[1]  ==  1) 

#endif 

/*  ( (Dat->varH*90. 0) /Convert) ) ;  */ 

fprintf (  fpl/ 

"  %5.3f  \t  ", 

(float)  ( (Dat->varH*90. 0) /Convert) ) ; 
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/*  ( ( (32767-Dat->varC) *90.0)/Convert) ) ;  */ 
if  (FLAG_ARRAY[2]  ==  1) 
fprintf(  fpl/ 

'•  %5.3f  \t 

(float)  ( ((32767-Dat->varC) *90.0) /Convert) ) ; 

/*  ( (Dat->varR*90.0) /Convert) ) ;  */ 
if  (FLAG_ARRAY[3]  ==  1) 

f  printf  (  f  pi  ,  «  %5.3f  \t  ••  ,  {  float) 

( (Dat->varR*90 . 0) /Convert) ) ; 

if  (FLAG_ARRAY[4]  ==  1) 

fprintf (fpl, ”  %5.3f  \t  ", (float)  Dat->varMACH) ; 
if  (FLAG_ARRAY[5]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  Dat->varPSI) ; 
if  (FLAG_ARRAY[6]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  Dat->varTHT) ; 
if  (FLAG_ARRAY[7]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  Dat->varPHI) ; 
if  (FLAG_ARRAY[8]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varOXP) ; 
if  (FLAG_ARRAY[9]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varOXY) ; 

if  (FLAG_ARRAY[10]  *=  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  Dat->varPX) ; 

if  (FLAG_ARRAY[11]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  Dat->varDLP) ; 

if  (FLAG_ARRAY[12]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varDLR) ; 

if  (FLAG_ARRAY[13]  ==  1) 

fprintf (fpl, "  %5,3f  \t  ", (float)  Dat->varTHPBD) ; 
if  (FLAG_ARRAY[14]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varTHPPBD) ; 

if  (FIAG_ARRAY[15]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varP) ; 

if  (FLAG_ARRAY[16]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varPD) ; 

if  (FLAG_ARRAY[17]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varABP) ; 
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if  (FLAG_ARRAy[18]  ==  1) 

fprintf  (fpl,  •'  %5.3f  \t  ",  (float)  Dat->varVFN)  ; 

if  (FLAG_ARRAy[19]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varVFE) ; 

if  (FLAG_ARKAy[20]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varVFU) ; 

if  (FLAG_ARRAy[21]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  (Dat->varX/256 . 0) ) ; 
if  (FLAG_ARRAy[22]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  (Dat->vary/256 . 0) ) ; 
if  (FLAG_ARRAy[23]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  (Dat->varZ/256. 0) ) ; 
#if  0 

if  (FLAG_ARRAy[24]  ==  1) 

#endif 

/*  (Dat->varAltx256/256.0) ) ;  */ 

fprintf (  fpl, 

"%5.3f  \t  ", 

(float)  (Dat->varAltx256/256.0) ) ; 

if  (FLAG_ARRAy[25]  =*  1) 

fprintf (fpl, "%5.3f  \t  ",  (float)  Dat->varNAB) ; 

if  (FLAG_ARRAy[26]  ==  1) 

fprintf (fpl, "  %5.3f  \t  ", (float)  Dat->varTHRUST) ; 
if  (FLAG_ARRAy[27]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat->varBRAKE) ; 

if  (FLAG_ARRAy[28]  ==  1) 

fprintf (fpl,"  %5.3f  \t  ", (float)  Dat“>varCAS) ; 

if  (FLAG_ARRAy[29]  ==  1) 

fprintf (fpl, "%d  \t  ",  (int)  Dat->varGforce) ; 

if  (FLAG_ARRAy[30]  ==  1) 

fprintf  (fpl,  "%d  \t  ",  (int)  Dat->varWi:iGHT)  ; 
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fprintf(fpl,  "%x  ",  (((  Dat->varMISSILE)  &  0x80)  /80)); 

fprintf(fpl,  "%x",  (((  Dat->varMISSILE)  &  0x40)  /40)); 
fprintf(fpl,  "%x",  (((  Dat->varMISSILE)  &  0x20)  /20) ) ; 
fprintf(fpl,  "%x  \t",  (((  Dat->varMISSILE)  &  0x10)  /lO) ) ; 

if  (Dat->in_address[5]  ==  Oxea  ) 

fprintf(fpl,  "%d  \t",  Missilecnt) ; 

else 

fprintf(fpl,  "%d  \t",  Missilecntl) ; 

fprintf(fpl,  "%d  ",  Dat->PIiength) ; 
fprintf (fpl, "\n") ; 


Aviation  Test  Plan  Report 


Page  222 


/****************«**«**  Missile  Count  ****************************/ 
Each  data  packet  has  a  flag  for  missile  fire.  Each  time  when  a 
missile  has^  been  fired  the  flag  will  change  from  0  to  l  for  a 
certain  period  (as  long  as  a  missile  still  in  the  air) .  When  it 
hits  something  the  flag  becomes  zero.  BitStatus  will  check  the 
flag  change.  BitStatus  tracks  the  first  change  from  0  to  l  in 
order  to  increment  the  missile  count 

******************************************************^^*^^^^^^^^^^ 

char  CheckBit(int  bit,  char  BitStatus,  int  c) 


{ 


while  ( (bit  ==  i)  &&  BitStatus) 


} 


if  (c  *=  1) 

Missilecnt++ ; 

else 

Missilecntl++ ; 
BitStatus  =  FALSE; 


/*  counts  missile  for  ASATl  */ 
/*  counts  missile  for  ASAT2  */ 


if  (bit  ==  0) 

BitStatus  =  TRUE; 

return (BitStatus) ; 


Aviation  Test  Plan  Report 


/****************«*****  buffer  control  ***********************/ 

/*  Used  to  update  buffer  pointer  when  old  buffer  is  full  */ 

void  NextBufferO 

{ 

Arraylndex++ ; 

if  (Arrayindex  ==  MaxPacketsInArray) 

Arrayindex  =0; 

Buffer  =  fitPackArray [Arrayindex] ; 

) 
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S3com.c 


/It**************************************************************** 

B3C0M.C 

Description:  This  file  augments  the  access  functions  for  the  3COM 
ETHERNET  board  provided  by  TIMET03L. ASM. 

***************************************************************** 


# include  <stdio.h> 

#include  <dos.h> 

#include  ''3com.h'' 

/**************** 

*  Constants  * 

****************/ 

fdefine  FALSE  0 
#define  TRUE  1 

/**************** 

*  Externs  * 

****************/ 
extern  unsigned  long  cnt; 

/*  variables  that  indicate  status  of  the  ASAT's 
team  mode,  solitaire  mode,  or  independent) 

*/ 

extern  char  /*  ASAT  status:  */ 

StatASATl,  /*  team,  solitaire  or  independent  mode  */ 

StatASAT2 , 

StatASAT12 , 

StatASAT3 ; 

extern  Packet  huge 

♦Buffer;  /*  Pointer  to  packets  */ 

extern  unsigned  char 

asat_address [ 6 ] ;  /*  ethernet  address  of  the  ASAT  */ 

extern  struct 

WhoStruct  far  *Who  ;/*  Ethernet  adapter  information  */ 
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static  struct  ini_hdr 
parmsdr ; 

static  int 

Adapters  =  0; 

unsigned  long  far 

*tiineptr;  /*  Time  for  packet  captured  / 

int 

count  =  0;  /*  Counts  the  #  of  packets  captured  */ 

char 

flag  =  FALSE;  /*  Stop  receiving  packets?,  time  out  f 

this  function  provides  initialization  for  the  3COM  board 
y**************************************************************** 

void  initScom (void) 

{ 

char  *pointr; 
int  rc; 

int  rs  =  0,  i  =  0; 

/*  initialize  3COM  board  for  network  communications  */ 

/*  clear  parmsdr  structure  */ 

pointr  =  (char  *)  Sparmsdr. len; 
for  ( i=0 ; i<23 ; i++)  pointr [i]  =  0x00; 

/*  set  parmsdr  structure  */ 

parmsdr. Ien=0xl7 ; 

parmsdr. argo  =  "d: \\3com\\3l\\ETH523 . sys" ; 
parmsdr. args=getds() ; 
parmsdr . non7=0x00 ; 

/*save  interrupt  vector  for  future  restoration  */ 
cSawecsO  ; 
rc=getds() ; 

rc^cInitParameters (parmsdr) ; 
rc*=cInitAdapters  ( &Adapters) ; 

rc=cSetLookAhead(32) ; 

rc«cWhoAmI (&Who) ; 
cGettimeptr (Stimeptr) ; 
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yiHHtiUtiHe*****************************************  ******  *********** 

this  function  SETS  THE  3coin  BOARD  to  send  data 

/**************************************************************** 

void  send_f ilter3COM(void) 

{ 

int  rc,  rxf  =OxOOOc,  rrxf; 
rc=cWrRxFilter (rxf ) ; 
rc=cRdRxFilter (&rrxf ) ; 

) 

^***************************************************************** 
this  function  sets  the  3COM  board  receive  filter  to  receive 

y **************************************************************** 

void  set_f ilter3C0M(void) 

{ 

int  rc,  rxf=OxOOOc,  rrxf; 
rc=cWrRxF i Iter (rxf ) ; 
rc=cRdRxFilter (&rrxf ) ; 

) 


/*  This  function  returns  a  ptr  to  the  ethernet  address  of  the  3COM 
adapter  */ 

char  far  *addr_3C0M(void) 

{ 

return ( &Who->addr ( 0 ] )  ; 

} 

y***************************************************************** 
this  function  resets  the  3COM  adapter 

y**************************************************************** 

void  reset3C0M(void) 

{ 

int  rc  =  0; 
rc=cResetAdapter ( ) ; 
cFixvecsO  ; 

} 
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this  function  prints  some  basic  statistics  for  the  3COM  board 


void  stats3C0M(void) 

{ 

printf ( "Total  3COM  reception  count  :  %d\n",cnt); 


printf("3C0M  WhoAmI  stats  :\n"); 

printf ("  addr  =  %02x  %02x  %02x",  Who->addr[0] , 

Who->addr [ 1] ,  Who->addr[2] ) ; 

printf ("  %02x  %02x  %02x\n",  Who->addr [ 3 ] , 

Who->addr [ 4 ] ,  Who->addr [ 5 ] ) ; 

} 


/*  Interrupt  processing  routines  required  by  3COM  package  */ 

note  that  these  routines  are  performed  inside  an  interrupt,  and 
thus  have  a  limited  scope  -  they  should  be  short,  and  some  function 
calls  (especially  ones  that  use  interrupts)  will  not  work  well 
inside  them.  Note  in  particular  that  PutTxData  cannot  be  called 
successfully  inside  RxProcess,  and  that  FTIME  does  not  work  inside 
any  of  them.  Note  also  that  for  some  (similar?)  reason, 
myExitRcvint  does  not  work  if  written  in  C. 

void  myRxProcess ( int  Status, int  PacketSize, int  RequestID, char  far 
*PacketHeader) 

{ 

int  rc,  NumBytes,  Flags; 
char  far  *PacketAddr; 

cGetATimeStamp( ) ; 

Buf fer->packet_stamp  =  *timeptr; 

Flags  »  0x40; 

NumBytes  =  PacketSize; 

PacketAddr  =  &Buffer->data[0] ; 

rc  =  cGetRxData ( SNumBytes ,  Flags,  RequestID,  PacketAddr); 
Buf fer->packet_length  =  PacketSize; 


if  (Buf fer->data [ 10]  ==  10) 
flag  =  TRUE; 
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if  (StatASAT12  1  j  StatASAT3) 

{ 

/*  receive  only  packets  of  type  8  from  ASATl  or  ASAT2  */ 


0xf5) ) ) 


if  ( (Buffer->data[10]  ==  8) 

&&  ((Buffer->data[5]  ==  Oxea)  jj  (Buffer->data[5]  == 


NextBufferO ;  /*  next  slot  in  the  array  */ 
count++;  /*  Increment  the  number  of  packets 

encountered*/ 


} 


} 

if  (S tat ASATl) 

{ 

/*  In  the  case  of  solitaire  mode  receive  packets  only  of 
type  8, and  from  the  designated  ASAT  */ 

if  ( (Buffer->data[10]  ==  8)  &&  (Buffer->data[5]  ==  Oxea) ) 
( 

NextBufferO  ; 
count++ ; 

} 

} 

if  (StatASAT2) 

{ 

/*  In  the  case  of  solitaire  mode  receive  packets  only  of 
type  8, and  from  the  designated  ASAT  */ 

if  ( (Buffer->data[10]  ==  8)  &&  (Buffer->data[5]  ==  0xf5)) 

{ 

NextBufferO  > 
count++ ; 

) 

) 

) 

#if  0 

void  myTxProcess (Status,  RequestID) 
int  Status,  RequestID; 

{ 

} 

lendif 
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11.4  Stamp. asm 
title  stamp. asm 

jlfklfkltlfifkltitlfklfklsIfkltitliltlfiUtltltiiltlfklcItlfklcIfklfklililtltlfkltlfklfkltlfkliltlfkielfklilcIfk 

;File:  STAMP. ASM 

t 

: Description:  This  file  contains  svibroutines  which  provide  a 
;  C  program  with  an  interface  to  the  3L  1.0  routines. 

;  Based  on  CT031.ASM. 

j********************************* ******************************* 

;  Functions  called  by  C 
PUBLIC  _getstamp 
PUBLIC  _getclock 
PUBLIC  _cSawecs 
PUBLIC  _cFixvecs 
PUBLIC  _cGetATimeStamp 
PUBLIC  _cGetATimeStampl 

PUBLIC  _cGettiineptr 


CODE 

GROUP 

_TEXT,  DATA,  I CODE 

TEXT 

segment 

byte  public  'CODE' 

DGROUP 

group 

DATA,  BSS 

assume 

cs:  TEXT,  ds: DGROUP,  ss: DGROUP 

_TEXT 

ends 

DATA 

segment 

word  public  'CODE' 

DATA 

ends 

I  CODE 

segment 

word  public  'CODE' 

I CODE  ends 

DATA 

segment 

• 

$ 

_etext 

db 

7 

vectsv 

dd 

22h  dup  (0)  ;save  all  vectors  so  we  can  cleanup 

retsav 

dw 

7 

DATA  ends 
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DATA 

segment 

word 

public 

•DATA* 

d@ 

label 

byte 

DATA 

ends 

BSS 

segment 

word 

public 

*BSS' 

be 

label 

byte 

BSS 

ends 

_DATA 

segment 

word 

public 

•DATA* 

_s§ 

label 

byte 

DATA  ends 
TEXT  SEGMENT 

ASSUME  CS:_TEXT,  DSrDGROUP,  SSrDGROUP 


t 

• 

t 

temp_hi 

db  0 

temp_lo 

db  0 

temp_hi_bit 

db  0 

timelo 

dw  0 

timehi 

dw  0 

_getstamp  proc 

near 

xor 

ax,  ax 

out 

043h,al 

in 

al,040h 

mov 

cs:temp  lo,al 

in 

al,040h 

mov 

cs:temp_hi,al 

mov 

ah , cs : temp_hi 

mov 

ret 

al , cs ; temp_lo 

getstamp  endp 


_getclock  proc  near  ;  get  lower  two  bytes  from  0040:006c, 

clock  data. 

push  ds 

mov  ax, 004 Oh 

mov  ds , ax 

mov  ax,ds:006ch 

pop  ds 

ret 

_get clock  endp 
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This  function  returns  a  timestamp  constructed  of  the  Timer  0  value 
and  the  lowest  word  of  the  MS-DOS  clock.  The  Timer  0  is  a  count¬ 
down  timer,  so  it  is  converted  to  form  a  coherent  timestamp  value. 
The  Timer  value  is  returned  in  the  AX  register  (low  word)  and  the 

clock  value  is  returned  in  the  DX  register  (high  word) . 

• 

f 

_cGetATimeStamp  proc  near 


push 

ds 

;set  segment  pointer  for 
clock  read 

mov 

ax,0040h 

• 

mov 

ds,ax 

i 

mov 

al , 0c2h 

;set  up  for  count/status 
latch 

cli 

;no  ints  here 

out 

043h,al 

; latch 

mov 

dx,ds:006ch 

;get  clock  Isw 

sti 

; restore  ints 

mov 

cs: timehi,dx 

; store  time  high  word 

in 

al,040h 

;get  status 

and 

al, 080h 

;get  msbit 

mov 

cs:temp  hi  bit 

,al  ; store  msbit 

in 

al,040h 

;get  Isb  of  count 

mov 

cs:temp  lo,al 

; store  Isb  of  count 

in 

al,040h 

;get  msb  of  count 

mov 

ah,al 

mov 

al , cs : temp_lo 

;get  count  into  ax 
reg 

ror 

ax,  1 

or 

ah ,  cs ;  temp_hi_: 

bit  ;get  back  bit  16 

not 

ax 

; change  from 
count-down  to  count-up 

mov 

cs:timelo,ax 

;  store  time  low 
word 

pop 

ret 

ds 

; restore  segment 
pointer 

cGetATimeStamp  endp 
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cGetATimeStampl  proc  near 


push 

ds 

;set  segment  pointer  for 
clock  read 

mov 

ax,0040h 

• 

/ 

mov 

ds,ax 

• 

t 

mov 

al, 0c2h 

;set  up  for  count/status 
latch 

cli 

;no  ints  here 

out 

043h,al 

; latch 

mov 

dx,ds:006ch 

;get  clock  Isw 

sti 

; restore  ints 

mov 

cs:timehi,dx 

; store  time  high  word 

in 

al, 040h 

;get  status 

and 

al, 080h 

;get  msbit 

mov 

cs:temp  hi  bit 

,al  ; store  msbit 

in 

al,040h 

;get  Isb  of  count 

mov 

csrtemp  lo,al 

; store  Isb  of  count 

in 

al,040h 

;get  msb  of  count 

mov 

ah,al 

mov 

al , cs : temp_lo 

;get  count  into  ax 
reg 

ror 

ax,  1 

or 

ah,  cs :  temp__hi_ 

bit  ;get  back  bit  16 

not 

ax 

/change  from 
count  “down  to  coxint-up 

mov 

cs:timelo,ax 

/store  time  low 
word 

pop 

ret 

ds 

/restore  segment 
pointer 

cGetATineStaiopl  endp 
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cSawecs;  This  procedure  saves  the  interrupt  vector  table  for 
restoration  after  the  adapter  usage  is  completed. 
The  interrupt  vector  table  must  be  restored  BEFORE 
initparameters  may  be  called  again,  else  the  55ms 
RTI  handler  will  (at  best)  execute  an  infinite  loop. 

cSawecs  returns  nothing. 


cSawecs  proc  near 
push  ds 

push  es 

push  si 

push  di 

push  cx 

mov  ax , ds 

mov  es , ax 

xor  ax, ax 

mov  ds , ax 

mov  cx,22h*2  ;vectors  0  -  21h,  2  wds  per 

mov  di, offset  CODE:vectsv 

xor  si, si 

cld 

cli 

rep  movsw  ;save  them  all 

sti 

pop  cx 

pop  di 

pop  si 

pop  es 

pop  ds 

ret 

cSawecs  endp 
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cFixvecs;  This  routine  restores  the  interrupt  table  portion 
saved  by  _Sawecs. 

cFixvecs  returns  nothing. 


cFixvecs  proc  near 
push  es 

push  si 

push  di 

push  cx 

push  ax 

xor  ax, ax 

nov  es , ax 

mov  cx,22h*2  ;vectors  0  -  21h,  2  wds  per 

mov  si, offset  CODErvectsv 

xor  di,di 

cld 

cli 

rep  movsw  ; restore  them  all 

sti 

pop  ax 

pop  cx 

pop  di 

pop  si 

pop  es 

ret 

cFixvecs  endp 
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cGettimeptr  proc  near 

push  bp 

mov  bp,sp 

push  si 

push  ds 

mov  ax,cs 

pop  ds 

mov  si,[bp+4] 

mov  word  ptr  [si], off set  cs:timelo 

mov  word  ptr  [si+2],ax 

pop  si 

pop  bp 

ret 

cGettimeptr  endp 


TEXT  ends 
end 
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11.5  Netto31.asm 


title  nettoSl.asm 

; **************************************************************** 
;File;  NETT03L.ASM 

t 

; Description:  This  file  contains  subroutines  which  provide  a 
;  C  program  interface  to  the  3L  1.0  routines. 

;  Based  on  CT031.ASM. 

$ 

^’k-k’kitii-k’k-k’k-k'k^ii'k’k’k’k'k^'k’k^'k^’k’k’k'k^'k'kiftt'k-k'k-k-k'k’k-k’k-k’k-k'kit’k’k'k'k’k’k'k’k'kii-k’k’k-k’k’k’k 

;  Functions  called  from  C 


PUBLIC  _cGet Counter 
PUBLIC  _getds 
PUBLIC  _cInitParameters 
PUBLIC  _cInitAdapters 
PUBLIC  _cResetAdapter 
PUBLIC  _cWhoAmI 
PUBLIC  _cRdRxFilter 
PUBLIC  _cWrRxFilter 
PUBLIC  _cPutTxData 
PUBLIC  ~cGetRxData 
PUBLIC  cSetLookAhead 


/•External  C  functions 

;extrn_myExitRcvInt  :near 

extrn  _myRxProcess  : near 

extrn  _myTxProcess  : near 

extrn  recv_pkt_posted  : word 

; extrn  packet_data_counter  :word 
; extrn  _nr ecv  : word 

; extrn  _nbrds  :word 

/•Functions  provide  by  this  file 

PUBLIC  ExitRcvInt 
PUBLIC  RxProcess 
PUBLIC  TxProcess 
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;3L  functions 

extrn  InltParameters  : near 
extrn  InitAdapters  :near 
extrn  WhoAml  : near 
extrn  ResetAdapter  : near 
extrn  RdRxFilter  :near 
extrn  WrRxFilter  :near 
extrn  GetRxData  : near 
extrn  SetLookAhead  : near 
extrn  PutTxData  : near 


CODE  GROUP  _TEXT,  DATA,  ICODE 

_TEXT  segment  byte  public  'CODE' 

DGROUP  group  _DATA,  _BSS 

assume  cs:_TEXT,  ds: DGROUP,  ss: DGROUP 
_TEXT  ends 

DATA  segment  word  public  'CODE* 

DATA  ends 

ICODE  segment  word  public  'CODE' 

ICODE  ends 

DATA  segment 

his_ds  dw  ? 

DATA  ends 

_DATA  segment  word  public  'DATA' 

_d@  label  byte 

_DATA  ends 

_BSS  segment  word  public  'BSS' 

_b@  label  byte 

_BSS  ends 

_DATA  segment  word  public  'DATA' 

_s@  label  byte 

_DATA  ends 

_TEXT  SEGMENT 

ASSUME  CS:_TEXT,  DS: DGROUP,  SS: DGROUP 


_getds 

proc 

near 

mov 

ax,ds 

mov 

ret 

cs:his_ds, ax 

_getds 

endp 
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cInitAdapters : 


This  procedure  provides  the  glue  between  a  C 
program  and  the  3L  1.0  InitAdapters  function. 


Calling  Sequence: 

int  CInitAdapters C&nAdapters) 

Input  Parameters: 

None 

Output  Parameters: 
int  nAdapters 

Returns : 

The  return  value  of  the  InitAdapters  function 


CInitAdapters  proc  near 
push  bp 
mov  bp , sp 

push  si 
push  di 
push  ds 


mov  ax,cs 

mov  ds , ax 

mov  di, offset  CODE : RxProcess 

call  InitAdapters 

pop  ds 

mov  di,word  ptr[bp+4] 

mov  word  ptr[di],cx 

pop  di 

pop  si 

pop  bp 

ret 

CInitAdapters  endp 
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cInitParameters;  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  initAdapters  function. 


Calling  Sequence: 

int  cInitParameters (Farms) 

Input  Parameters: 

char  *Parms  -  Pointer  to  a  structure  with  overrides  of  default 
parameters . 


Output  Parameters: 

None 

Returns : 

The  return  value  of  the  InitParameters  function 


cInitParameters  proc  near 


push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

bx, [bp+4] 

mov 

ax,ds 

mov 

es,  ax 

mov 

ax^cs 

mov 

ds,ax 

call 

InitParameters 

pop 

ds 

pop 

di 

pop 

si 

pop 

ret 

bp 

CInitParameters  endp 
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_cResetAdapter;  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  ResetAdapters  function. 

Calling  Sequence: 

int  cResetAdapter ( ) 

Input  Parameters: 

None 

Output  Parameters : 

None 

Returns : 

The  return  value  of  the  ResetAdapter  function 


_cResetAdapter 

proc  near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

dx,  0 

mov 

ax,  cs 

mov 

ds,ax 

mov 

dl,0 

call 

ResetAdapter 

pop 

ds 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cResetAdapter 

endp 

I 
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;_cWhoAmI:  This  procedure  provides  the  glue  between  a  C 

;  program  and  the  3L  1.0  WhoAmI  function. 

• 

9 

; Cal ling  Sequence: 

;  int  cWhoAmI (&WhoPtr) 

• 

9 

; Input  Parameters: 

;  None 

9 

; Output  Parameters: 

;  struct  WhoStruct  far  *WhoPtr  -  Far  pointer  to  the  WhoAmI 

structure 

9 

; Returns : 

;  The  return  value  of  the  WhoAmI  function 


cWhoAmI  proc 

near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

dx,  0 

mov 

ax,  cs 

mov 

ds,ax 

call 

WhoAmI 

pop 

ds 

mov 

si, [bp+4] 

mov 

Word  ptr  [si],di 

mov 

Word  ptr  [si+2],es 

pop 

di 

pop 

si 

pop 

bp 

ret 

cWhoAmI  endp 
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_cRdRxFilter:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  RdRxFilter  function. 

Calling  Sequence: 

int  cRdRxFilter (&RxFilter) 


Input  Parameters: 
None 


Output  Parameters: 

int  RxFilter  -  The  receive  filter  value 
Returns : 

The  return  value  of  the  RdRxFilter  function 


CRdRxFilter  proc  near 
push  bp 

mov  bp , sp 

push  si 

push  di 

push  ds 

mov  ax , cs 

mov  ds , ax 

mov  dx , 0 

call  RdRxFilter 

pop  ds 

mov  di,[bp+4] 

mov  [di],bx 

pop  di 

pop  si 

pop  bp 

ret 

CRdRxFilter  endp 


Pega 
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cWrRxFilter; 


This  procedure  provides  the  glue  between  a  C 
program  and  the  3L  1.0  WrRxFilter  function. 


Calling  Sequence: 

int  CWrRxFilter (RxFilter) 


Input  Parameters: 

int  RxFilter  -  The  new  receive  filter  value 


Output  Parameters: 
None 


Returns : 

The  return  value  of  the  WrRxFilter  function 


I 

I 

I 

I 


CWrRxFilter  proc  near 
push  bp 
mov  bp , sp 

push  ds 
push  si 
push  di 

mov  ax , cs 
mov  ds , ax 

mov  dx  /  0 

mov  ax,[bp+4] 

call  WrRxFilter 

pop  di 
pop  si 
pop  ds 
pop  bp 
ret 

CWrRxFilter  endp 
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r  ———————  —————————  — — 

_cSetLookAhead :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  SetLookAhead  function. 


Calling  Sequence: 

int  cSetljOokAhead(NumBytes) 

Input  Parameters: 

int  NumBytes  -  The  number  of  bytes  of  look  ahead  data 

Output  Parameters: 

None 

Returns : 

The  return  value  of  the  SetLookAhead  function 


_cSetLookAhead 

proc  near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

ax,cs 

mov 

ds^ax 

mov 

dx,  0 

mov 

ax, [bp+4] 

call 

SetLookAhead 

pop 

ds 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cSetLookAhead 

endp 
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cPutTxData:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  PutTxData  function. 


Calling  Sequence; 

int  cPutTxData(TotalPacketLen,  NiomBytes,  Flags,  RequestID, 
PacketAddr,  &NewRequestID} 


Input  Parameters: 

int  Total Packet Len  -  The  total  packet  length  (first  call  only) 
int  NvxmBytes  -  The  number  of  bytes  to  transfer  this  call 
int  Flags  -  The  DL  flags 

int  RequestID  -  Used  if  not  the  first  call 

char  far  *  PacketAddr  -  A  far  pointer  to  the  packet 

Output  Parameters; 

int  NewRequestID  -  Returned  after  first  call 
Returns : 

The  return  value  of  the  PutTxData  function 


9 

_cPutTxDAta  proc  near 


push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

ax,ds 

mov 

es,ax 

mov 

bx, [bp+4] 

mov 

cx, [bp+6] 

mov 

dl,byte  ptr[bp+8] 

mov 

dh,byte  ptr[bp+10] 

mov 

si, (bp+12] 

mov 

di, offset  CODE;TxProcess 

mov 

di,0ffffh  ;  no  TxProcess 

call 

PutTxData 

pop 

ds 

xchg 

dh,dl 

xor 

dh,dh 

mov 

di, [bp+16] 

mov 

[di] ,dx 
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pop  di 
pop  si 
pop  bp 
ret 

cPutTxOata  endp 


_cGetRxData:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  GetRxData  function. 

Calling  Sequence: 

int  cGetRxData  (StNumBytes,  Flags,  RequestID,  PacketAddr) 
Input  Parameters: 

int  NumBytes  -  The  number  of  bytes  to  transfer  this  call 

int  Flags  -  The  DL  flags 

int  RequestID  -  The  request  identifier 

char  far  *  PacketAddr  -  A  far  pointer  to  the  packet  to  copy 
the  data 

Output  Parameters: 

int  NumBytes  -  The  actual  number  of  bytes  transferred 
Returns : 

The  return  value  of  the  GetRxData  function 


cGetRxData  proc  near 


push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

di, [bp+4] 

mov 

cx,ss: [di] 

mov 

dl,byte  ptr[bp+6] 

mov 

dh,byte  ptr[bp+8] 

mov 

di, [bp+10] 

mov 

es, [bp+12] 

call 

GetRxData 

pop 

ds 

mov 

di, [bp+4] 

mov 

ss: [di] ,cx 

pop 

di 

pop 

si 

pop 

ret 

bp 

cGetRxData  endp 
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TxProcess:  This  procedure  is  the  protocol-side  routine  which  is 

called  when  a  packet  has  finished  transmitting  (see 
_cInitAdapters) .  It  provides  the  glue  between  the  3L 
1.0  routines  and  C  routine  called  myTxProcess. 

myTxProcess  Calling  Sequence: 

void  myTxProcess (Status,  RequestID) 

myTxProcess  Input  Parameters: 

int  Status  -  Receive  status 

int  RequestID  -  The  request  identifier 

myTxProcess  Returns: 

Nothing 


f 

TxProcess  proc 

near 

push 

bp 

push 

si 

push 

di 

push 

ds 

push 

es 

push 

ax 

mov 

ax,cs:his_ds 

mov 

ds,ax 

mov 

es,ax 

pop 

ax 

xor 

cx,cx 

mov 

cl,dh 

xor 

dh,dh 

push 

cx 

push 

ax 

call 

_myTxProcess 

add 

sp,4 

pop 

es 

pop 

ds 

pop 

di 

pop 

si 

pop 

bp 

ret 

TxProcess  endp 
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ExitRcvInt:  This  procedure  is  the  protocol-side  routine  which  is 
called  when  the  3L  has  completed  a  receive  interrupt. 
It  provides  the  glue  between  the  3L  1.0  routines  and 
C  routine  called  myExitRcvInt . 

myExitRcvInt  Calling  Seguence: 
void  myExitRcvInt () 

myExitRcvInt  Input  Parameters: 

None 

myExitRcvInt  Returns: 

Nothing 


ExitRcvInt  proc  near 
;  push  bp 

;  push  ds 

;  push  es 

;  push  si 

;  push  di 

• 

# 

;  push  ax 

;  mov  ax , cs : his_ds 

;  mov  ds , ax 

;  mov  es , ax 

;  pop  ax 

• 

i 

;  call  _myExitRcvInt 

t 

;  pop  di 

;  pop  si 

;  pop  es 

;  pop  ds 

;  pop  bp 

iret 

ExitRcvInt  endp 

;_myExitRcvInt  proc  near 
;  ret 

;_myExitRcvInt  endp 
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RxProcess:  This  procedure  is  the  protocol-side  routine  which  is 

called  when  a  packet  has  been  received  (see 
_cInitAdapters) .  It  provides  the  glue  between  the  3L 
1.0  routines  and  C  routine  called  myRxProcess. 

myRxProcess  Calling  Sequence: 

void  myRxProcess (Status,  PacketSize,  ReguestID,  PacketHeader) 

myRxProcess  Input  Parameters: 
int  Status  -  Receive  status 

int  PacketSize  -  Size  of  the  received  packet 
int  Request ID  -  The  request  identifier 

char  far  *PacketHeader  -  Address  of  the  virtual  packet  header 

myRxProcess  Returns: 

Nothing 


RxProcess  proc 

near 

push 

bx 

push 

cx 

push 

dx 

push 

si 

push 

di 

push 

bp 

push 

ds 

push 

es 

pushf 

push 

es 

push 

di 

push 

ax 

mov 

ax,cs:his  ds 

mov 

ds,ax 

mov 

es,ax 

pop 

ax 

xor 

bx,bx 

mov 

bl,dh 

xor 

dh,dh 

push 

bx 

push 

cx 

push 

ax 
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PegePSO 


call 

_myRxProcess 

add 

sp,  10 

popf 

pop 

es 

pop 

ds 

pop 

bp 

pop 

di 

pop 

si 

pop 

dx 

pop 

cx 

pop 

ret 

bx 

RxProcess  endp 


_cGetCounter  proc  near 

push  bp 
mov  bp,sp 
push  si 
push  di 
push  ds 

mov  ax^cs 
mov  ds,ax 

pop  ds 

mov  cx ,  cs :  recv__pkt_posted 
;mov  cx,cs:__nrecv 
mov  di,word  ptr[bp+4] 
mov  word  ptr[di],cx 

pop  di 
pop  si 
pop  bp 
ret 

_cGetCounter  endp 

_TEXT  ends 
end 
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12 . 0  ASAT. C 


Program  Cover  sheet 

Program  Name:  asat.c  Latest  Version:  2.0 
Languages:  £  Manufacturer:  Microsoft  Co. 


Date:  9-15-1991 
Version:  5.1 


Description: 

This  is  one  of  the  program  modules  comprising  the  ASAT 
simulator.  It  is  adapted  for  the  intersimulator  purpose  of 
delaying  communication  between  two  ASAT  simulators.  This 
program  receives  two  par2uneters  from  the  DOS  command  line: 
the  PC  Ethernet  address  and  the  simulator  number.  The  PC 
Ethernet  address  is  used  so  the  ASAT  simulators  recognize  the 
acceptable  packet  sender.  The  simulator  number  is  used  for 
the  ASAT  simulator  to  reject  packets  which  were  sent  by  the 
same  ASAT  simulator.  That  is,  a  simulator  cannot  receive 
packets  which  it  has  also  sent.  The  program  was  modified  for 
the  intersimulator  delay  study. 


/* 


ASAT.C 


*/ 

# include  <stdio.h> 

/* 

Main  initializes  XTAR  graphics  card  and  EtherLink  II  network 
adapter.  It  then  starts  the  program. 

*/ 

int  asat_number; 
char  far  pc_address [ 6 ] ; 

void  main  (int  argc,char  *argv[]) 

{ 

int  i , rc ; 

if  (argc  <  3) 

{ 

printf  ("Command  line  error  !  Type  in  the  following 
sequence:  \n") ; 

printf ("Executable  file  name  PC  address  ASAT 

number \n") ; 

printf ("Example:  asatxx  02608c0d25ea  l\n") ; 
exit(O) ; 

} _ 
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/*  Convert  parameters  to  integers.  All  are  expected  to  be  HEX  */ 

for  (i=0;  i<12;  i++) 

{ 

if  (argv[l][i]  <=  '9') 

argv[l][i]  *  argvflj [i]- '0 ' ; 

else 

if  (argv[l][i]  >=  'a'  &&  argv[l][i]  <=  'f') 
argv[l][i]  =  argv[i3 [i]-'a'+10; 

else 

argv[l][i]  =  argv[i] [i]-*A'+10; 

) 

/*  First  parameter  specifies  the  machine's  ethernet  address  */ 
for  (i=0;  i<6;  i++) 

( 

pc_address [ i ]  =  argv[l] [i*2]*16+argv[l] [i*2+l] ; 

} 

asat_number  =  atoi (argv[2] ) ; 

rc  =  pass_filter (pc_address,asat_number) ; 

init_asatid() ; 

if  (rc  !=  asat_n\imber) 

{ 

printfC'Asat  ID  error,  ID  =  %d  returned  ID  = 
%d\n**,asat_number,rc) ; 
exit(O) ; 

} 

init_card() ;  /*  initialize  XTAR  */ 

initqO  ; 

initnetworkflagO ;  /*  initialize  network  flag,  assume 

it's  good  */ 

if  (init_dev()) 

{ 

reset_dev() ;  /*  bad  network  ==>  reset  adapter  */ 

setnetworkf lag ( ) ;  /*  set  network  flag  to  bad  */ 

} 

mainasmO ;  /*  program's  ready  to  run  */ 
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12.1  CSltoc.c 


Program  Cover  Sheet 

Program  Name;  c3ltoc.c  Latest  Version:  1.0  Date:  9-15-199 

Lancniaaes ;  C  Manufacturer:  Microsoft  Co.  Version:  S. l 


Description: 

This  file  contains  subroutines  common  to  the  programs 
initsys.c  and  delay. c  as  well  as  prototype  subroutines  used 
from  the  Assembler  code.  The  prototype  subroutines  are  not 
used  in  the  inter-simulator  network  programs,  but  may  be  used 
for  future  development. 


y-kltitii-iiifk-k-kic-kiilfifk-kli-kltifkiklfklelelfifklfk-klfklfklclfk-klfkltlelficlfklfkltitlcitle-k-k-kifkic-k’k-klt 

c31toc.c  :  This  file  contains  routines  used  by  various  other 
modules,  and  so  acts  as  a  routine  library. 

/**************** 

*  includes  * 

****************/ 

tinclude  <stdio.h> 

# include  <dos.h> 

^include  "inet.h" 

y**************** 

*  externs  * 

•k -k  *  h  lift  h -k  *  *  it  * -k  It  *  *  y 

extern  char  far  asatl_address[6] ;  /*  Asat  simulator  addresses  */ 

extern  C-.  r  far  asat2_address[6] ; 

extern  char  mypcaddress[6] ;  /*  local  PC  address  */ 
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/**************** 

*  Functions  * 

****************/ 

^  **********************************  ******************************* 
init_panneter :  Initialize  the  Ether  Link  II  adapter  parameters. 

Refer  to  Ether  Link  II  manual. 

Return  :  None 

'k'k'k'k'kicic'kititicieit'k'kitif'kititit’k'k'kiticie'kititit'kitit'kicitit'kit'k'kiticic'kitit'kitieititicrk’k'kitie’k'kic’kieie 

void  init_parameter (void) 

{ 

parmsdr  =  (struct  ini_hdrty  *) 
memset (parmsdr, 0,si2eof (ini_hdr) ) ; 

parmsdr->len=0xl7 ; 

parTnsdr~>argo  =  "c:  \\3com\\ether503 .  sys  /A:2e0  /D:l 

/I;3\0x0a”; 

parmsdr->args=getds 0 ;  /*  save  ds  segment  */ 

) 

^  ***************************************************************** 
init_3com_all ;  Initialize  the  Ether  Link  II  adapter  and  the 

receiving  buffers. 

Return  ;  None 

***************************************************************** 

void  init_3com_all (void) 

{ 

int  return_code,  rxf=OxOOOc,  rrxf,  Adapters=0; 

cGet_Parmsptr (Sparmsdr, &TotPktsInQ) ; 
init_parameter ( ) ; 

return_code=getds ( ) ; 

return_code=cInitParameters (parmsdr) ; 
return_code=cInitAdapters (SAdapters) ; 

return_code=cSetLookAhead(32) ; 

return_code=cWhoAmI ( &Who) ; 
return_code=cWrRxFilter (rxf ) ; 
return_code=cRdRxFilter (&rrxf)  ; 

return_code=cInitBufPtr ( ) ; 
cPassHead (&Hdptr) ; 
cGettimeptr (&timeptr) ; 
cGetPkttrxPtr (fiPkttrxptr) ; 

) 
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/it**************************************************************** 

CheckHead:  this  subroutine  is  called  by  'Rxprocess'  to  check  the 
packet  address  in  order  to  switch  the  receiving  buffer 
pointer. 

Return  :  0  -  reject  packet 

1  -  receiving  buffer  #1 

2  -  receiving  buffer  #2 

************************  ***************************  ************** 


int  CheckHead (void) 

{ 

int  i, reject, id, type; 

id  =  Hdptr->inh(8 ] ; 
type  =  Hdptr->inh[ 10] ; 

/*  Code  for  one  Asat  address  */ 

if  (0  <■  network_mode  &&  network_inode  <=  2) 

{ 

reject  =  0; 

/* 

if  network_inode  =  1;  only  receive  packets  from 
simulator  #1  it  needs  to  check  the  Asat  address  with 
each  packet  header  or  check  the  simulator  ID. 

*/ 

if  (network_mode  ==  ASATl) 

{ 

if  (id  >  0  &&  id  !=  ASATl) 
reject  =1; 

else 

{ 

for  (i=0;  i<6;  i++) 

if  (Hdptr->inh[i]  !=  asatl_address[i] ) 
reject  =  1; 

} 


} 


if  (! reject) 

return (1) ; 

else 

return (0) ; 
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/* 

if  network_mode  =  2:  only  receive  packets  from 
simulator  #2  it  needs  to  check  the  Asat  address  with 
each  packet  header  or  check  the  simulator  ID. 

*/ 


if  ( network_mode  ==  ASAT2) 

{ 

if  (id  >  0  &&  id  1=  ASAT2) 
reject  =1; 

else 

{ 

for  (i=0;  i<6;  i-*-+) 

if  (Hdptr->inh[ i]  1=  asat2_address[ i] ) 
reject  =1; 

} 

if  (i reject) 

return (2) ; 

else 

return (0) ; 

} 

} 

else 

( 

/* 

Code  for  two  Asat  addresses  -  in  team  mode.  It 
needs  to  check  either  the  packet  addresses  or 
simulator  IDs  to  each  receiving  packet. 

*/ 

if  (id  >  0) 

{ 

if  (id  ==  ASATl) 

{ 

if  ( network_mode  ==99  &&  type  ==  9) 
return (0) ; 

else 

return (1) ; 

} 

else 

if  (id  ==  ASAT2) 
return (2) ; 

else 

return (0) ; 

} 

else 
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} 


) 


{ 


} 


reject  =  0; 

for  (i=0;  i<6;  i++) 

if  (Hdptr->inh[i]  !=  asatl_address[i] ) 
reject  =1; 


if  (1  reject) 

return (1) ; 

else 

{ 

reject  =  0; 


) 


for  (i=0;  i<6;  i++) 

if  (Hdptr->inh[i]  !=  asat2_address[i] ) 
reject  =  1; 


if  (! reject) 

return (2) ; 

else 

return (0) ; 


return (0) ; 


myRxProcess:  A  high  level  interrupt  subroutine  to  receive  packets. 

This  subroutine  is  only  a  prototype.  It  can  be 
developed  in  a  higher  level  protocol,  in  'C  code,  to 
receive  packets. 

Not  used  in  'delay.exe' 


void  myRxProcess ( int  Status, int  PacketSize, int  RequestID, char  far 

♦PacketHeader) 

{ 

#if  0 

fprintf (stderr, "Called  by  ASM  -  myRxProcess\nNot 
implement  yet\n") ; 

fprintf (stderr, "Status=%d,  PacketSi2e=%d, 
RequestID=%d\n" , Status , 

PacketSize, RequestID) ; 

#endif 

} 
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/**************************************************************** 
myTxProcess:  A  high  level  interrupt  subroutine  to  transmit 
packets.  This  subroutine  is  only  a  prototype.  It  can 
be  developed  in  a  higher  level  protocol,  in  'C  code, 
to  transmit  packets. 

Not  used  in  'delay.exe' 

***************************************************************** 

void  myTxProcess ( int  Status, int  RequestID) 

{ 

#if  0 

printf ("Called  by  ASM  -  myTxProcess \nNot  implement 
yet\n") ; 

printf ("Status=%d,  RequestID=%d\n" , Status,  RequestID); 
#endif 

) 

/***************************************************************** 
myExitRcvInt:  A  high  level  sxibroutine  to  exit  the  interrupt  of 

receiving  packets. 

This  s;ibroutine  is  only  a  prototype.  It  can  be 
developed  in  a  higher  level  protocol,  in  'C  code, 
to  exit  at  the  end  of  receiving  a  packet. 

Not  used  in  'delay.exe' 

******************************************************'k*******‘it*'^ 

void  myExitRcvInt (void) 

{ 

#if  0 

printf ("Called  by  ASM  -  myExitRcvInt \nNot  implement 
yet\n") ; 

lendif 

} 
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12.2  Internet. asm 


Program  Cover  Sheet 

Program  Name:  internet. asm  Latest  Version:  1.1 
Languages:  aggembier  Manufacturer:  Microsoft  Co. 


Date:  9-15-1991 
Version:  5.1 


Description: 

This  is  one  of  the  program  modules  of  the  ASAT  simulator.  It 
is  adapted  for  the  intersimulator  communication  delay  between  two 
ASAT  simulators.  This  program  receives  data  packets  only  from  a 
specified  sender,  a  PC  node,  and  rejects  other  packets.  It  also 
rejects  packets  which  contain  the  same  simulator  number  given  from 
the  ASAT.c  module.  After  receiving  a  packet,  the  original  packet 
address  (the  address  of  the  other  ASAT)  is  reinstalled  in  the 
packet  buffer  for  later  use.  For  packet  transmission,  the  program 
is  responsible  for  putting  the  simulator  number  in  each  packet  to 
recognize  the  packet  returned  later  from  the  PC  sender. 


INTERNET. ASM 


# 

;  **  NOTE:  **  To  allow  this  program  to  terminate  cleanly 

;  sawecs  and  fixvecs  routines  were  added  to  preserve  vectors 

;  that  could  be  changed.  This  allows  3L  interjrupt  hooks  to  be 

;  undone  so  3L  can  be  used  in  an  executable  program  rather  than 

;  just  a  permanent  driver. 


.386 

include  , . \include\network. inc 
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;define  3L  functions 
extrn  InitParametersinear 
extrn  InitAdapters : near 
extrn  WhoAmI : near 
extrn  ResetAdapter : near 
extrn  RdRxFilter ; near 
extrn  WrRxFilter : near 
extrn  GetRxData : near 
extrn  SetLookAhead : near 
extrn  PutTxData : near 
extrn  KillMigFromNetwork: far 

extrn  ethernetaddress : word, send_buffer: byte 

public  RxProcess 
public  ExitRcvInt 

publ ic  _InitQ , HowMany InNetwork 

public  CheckNetwor3cActivity,MasterSlaveDecision 
public  PlayerInTeam, SortEthernetAddress, PutPacketBack 

publ ic  args tr , networkAct ivi ty 


public 

xmitl. 

rcvsome,  sawecs,  fixvecs 

public 

_init_ 

dev , transmit , _reset_dev 

public 

__pass_ 

filter 

public 

_init” 

'asatid 

CODE 

GROUP 

DATA, 

RCODE 

DATA 

SEGMENT  WORD 

PUBLIC  USE16 

;DOS  driver  init  request  header  format 

ini_hd 

struc 

db 

23 

;hdr  len 

db 

0 

db 

0 

;init  cmd 

stat 

dw 

0 

db 

8  dup 

(0) 

db 

0 

;num  units  (not  used) 

cdend 

dd 

0 

;code  end  set  here 

argo 

dw 

0 

;arg  offset 

args 

dw 

0 

;arg  segment 

db 

0 

ini  hd 

ends 
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; -  adapter  parameter  setup  string  - 

;  this  would  come  from  'device*'  on  real  driver  init 
argstr  db  "bs.sys  /A:2e0  /D:l  /I:3",0ah 

; -  fake  driver  init  request  header  for  InitParameter  input 

ih  ini_hd  ,offset  CODE : argstr, seg  CODE,> 


even 

vectsv  dd 

22h  dup 

(0)  ;save  all 

vectors  so  we  can  cleanup 

id_struc 

active 

struc 

db 

0 

;0  =  node  is  not  active 

count 

db 

0 

;byte  to  check  packet  ID 

address 

db 

6  dup(O) 

; (whether  the  same  packet 
; received  twice) 

; ethernet  address 

planelD 

dw 

0 

headPointer 

dw 

0 

tailPointer 

dw 

0 

pktData 

db 

Qbytes  dup(O) 

asatid 

dw 

0 

store  Asat  ID  to  identify 

id_struc 

ends 

; packets 

;  don't  change  the  order 

ethernetid  id_struc  MAXNUMBEROFMIGS  dup(<>) 


ethernetTable  dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 


ethernetid 
ethernetld+ (size 
ethernetld+ ( size 
ethernetld+ (size 
ethernetld+ (size 
ethernetld+ ( size 
ethernetld+ (size 
e  theme  t  Id+  (size 
ethernetld+ { size 
ethernetld+ (size 
ethernet Id+ (size 


id_struc) 
id_struc) *2 
id_struc) *3 
id_struc) *4 
id_struc) *5 
id_struc) *6 
id_struc) *7 
id_struc) *8 
id_struc) *9 
id_struc) *10 


ethernetindex  dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 


ethernetTable 

ethernetTable+2 

etherne tTabl e+ 4 

ethernetTable+6 

ethernetTable+8 

ethernetTable+ l 0 

ether netTable+ 1 2 

ethernetTable+14 

ethernetTable+16 

ethernetTable+18 

ethernetTable+2  0 
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networkActivity  db 


(MAXNUMBEROFMIGS  *  2)  dup  (0)  ;lst  byte 

;=  current  count 
;2nd  byte 

number  of  repetition 

LENGTH_ACTIVITY  egu  $ -networkActivity 


f ilter_address 

db 

6  dup  (0) 

;  source 

address  of 

• 

$ 

filtering 

filter_id 

dw 

0 

asat_id 

dw 

0 

asatl_address 

db 

02h, 60h, 8ch, Odh, 25h, Oeah 

Asat  #1 
address 

asat2_address 

db 

02h,60h,8ch,0dh,20h,0f5h 

Asat  #2 
address 

segnumber 

dw 

0 

DATA  ENDS 


RCODE  SEGMENT  WORD  PUBLIC  USE16 
assume  cs:code,  ds:code 

comment  # 


_pass_filter  Gets  filter  address  and  number  from  'ASAT.C* 
Output:  ax  =  filter_id 


# 

_pass_filter  proc  far 

push  bp 

mov  bp , sp 

push  es 

push  si 

push  di 

push  cx 

push  ds 

mov  ax,  cs 

mov  es ,  ax 

mov  cx ,  6 

mov  ds, [bp+8] 

mov  si,[bp+6] 

mov  di, offset  f ilter_address 

rep  movsb 

mov  ax , cs 

mov  ds , ax 

mov  ax, [bp+10] 

mov  filter_id,  ax 
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mov 


ax,  filter  id 


pop 

ds 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

pop 

bp 

ret 

_pass_filter 

endp 

comment  # 

_init_asatid  Initializes  asat  ID  in  ethernetID.  It  is  called  by 
•ASAT.C 

Calling  sequence;  init_asatid() ; 

Output :  Non 


# 

init  asatid 


@initid  contO: 


ethernetTabl e 
structure 


proc 

far 

push 

si 

push 

di 

push 

dx 

push 

cx 

push 

bx 

push 

ds 

mov 

ax,  cs 

mov 

ds,  ax 

mov 

di,  offset  code : ethernetindex 

mov 

bx,  offset  code:asatl_address 

mov 

cx,  0 

inc 

cx 

mov 

si,  [di] 

; pointer 

to 

mov 

si,  [si] 

.•pointer 

to 

cmp 

filter_id,  cx 

jnz 

short  §initid_contl 

inc 

cx 

add 

bx,  6 
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§initid__contl : 

mov  [si] .asatid,  cx 

cmp  [si]. asatid,  2 

jg  short  §initid_cont2 

mov  eax,  dword  ptr  [bx] 

mov  dx,  word  ptr  [bx+4] 

mov  dword  ptr  [si] .address,  eax 

mov  word  ptr  [si+4] .address,  dx 

add  bx ,  6 

@initid_cont2 : 

add  di ,  2 

cmp  cx,  MAXNUMBEROFMIGS+1 

jnz  §initid_contO 

pop  ds 

pop  bx 

pop  cx 

pop  dx 

pop  di 

pop  si 

ret 

_init_asatid  endp 
comment  # 


restore_address  Restore  transmitter's  address  in  Q,  pointed  by  di. 
Input  :  bx  -  asatid 

di  -  points  to  where  the  address  starts. 

Output;  di  -  points  to  where  the  address  starts. 


restore_address  proc 

push 

push 

push 

push 

mov 

mov 

mov 

cmp 

jnz 

mov 

jmp 


near 

si 

di 

cx 

es 

cx,  ds 
es,  cx 
cx,  6 
bx,  1 
@restorl 

si,  offset  asatl_address 
short  @restor2 


# 
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@restorl : 
§restor2 : 


mov 

si,  o: 

rep 

movsb 

pop 

es 

pop 

cx 

pop 

di 

pop 

si 

ret 

endp 

comment  # 


_Init_Dev  Initializes  network  adapter. 
Output:  ax  =  0  (successful) 


# 

init  dev 


proc  far 

push  ds 

push  es 

mov  ax ,  cs 

mov  ds ,  ax 

mov  es,  ax 

call  sawecs 

mov  bx,  offset  code:ih 

call  In it Parameters 

or  ax,  ax 

jnz  short  §id_exit 

mov  di,  offset  code:RxProcess 

call  InitAdapters 

or  ax,  ax 

jnz  short  §id_exit 

xor  dx,  dx 

call  WhoAmI 

or  ax,  ax 

jnz  short  @id_exit 
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mov 

si,  di 

mov 

di,  es 

mov 

ds,  di 

mov 

di,  seg  ethernetaddress 

mov 

es,  di 

mov 

movsd 

movsw 

di,  offset  ethernetaddress 

mov 

dx,  cs 

mov 

ds ,  dx 

xor 

dx,  dx 

mov 

cx,  16 

call 

SetLookAhead 

or 

ax,  ax 

jnz 

short  §id_exit 

xor 

dx,  dx 

mov 

ax,  Och 

call 

WrRxFilter 

or 

ax,  ax 

jnz 

short  @id_exit 

pop 

es 

pop 

ret 

ds 

@id  exit: 

push 

ax 

call 

ResetAdapter 

call 

f ixvecs 

pop 

ax 

pop 

es 

pop 

ret 

ds 

_init_dev 

endp 

comnent  # 

_Reset_Dev 

resets  and 

reinitializes  network  adapter. 

# 

reset  dev 


proc 

far 

push 

ds 

push 

es 

mov 

ax,  cs 

mov 

ds,  ax 

mov 

es,  ax 

call 

ResetAdapter 

call 

f ixvecs 

pop 

es 

pop 

ds 
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ret 

_reset_dev  endp 

comiaent  # 


Transmit  prepares  parameter  to  transmit  a  packet. 
Input:  bx  =  length 

es: [si]  =  buffer 

Output:  ax  =  error  code  (0  =  successful) 


# 

transmit  proc  far 

i 

push  ds 

push  es 

mov  ax,  cs 

mov  ds ,  ax 

call  xmitl 
pop  es 

pop  ds 

ret 

transmit  endp 

comment  # 


Xmitl  passes  control  to  3L  routine  in  transmit  process. 


# 

xmitl  proc  near 

mov  dx,50h 

mov  cx , bx 

mov  di,0ffffh  ;no  TxProcess 

push  es 

pop  ds 

push  si 

push  is 

push  cx 

push  eax 

;  inc  cs :  secpiumber  ; 

;  mov  ax,  cs:segnumber  ; 

mov  ax,  cs:filter_id 

mov  word  ptr  es:[si+8],  ax  ;install  filter  ID 

push  ds  ; 

push  di  ; 

mov  di,  seg  asatl_address  ; 

mov  ds,  di  ; 

emp  ax,  1  ; 

jnz  short  §addrl  ; 

mov  di,  offset  asatl_address  ; 

_ jmp _ short  §addr2 _ 
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@addrl 


@addr2 : 


@addr3 : 


cmp 

ax,  2 

jnz 

short  §addr3 

mov 

di,  offset  asat2_address 

mov 

di ,  seg  ethernetaddress 

mov 

ds,  di 

mov 

di,  offset  ethernetaddress 

mov 

eax,  dword  ptr  ds:[di] 

mov 

dword  ptr  es:[si],  eax 

mov 

ax,  word  ptr  ds:[di+4] 

mov 

word  ptr  es:[si+4],  ax 

pop 

di 

pop 

ds 

pop 

eax 

call 

PutTxData 

pop 

cx 

pop 

ds 

pop 

si 

or 

ax,  ax 

jz 

short  xmitl_exit 

xmitl^contO : 

""  push  si 

push  ds 

push  cx 

push  dx 

xor  dl,  dl 
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push  eax 

mov  ax,  cs; f ilter_id 

mov  word  ptr  es:[si+8],  ax 

pop  eax 

call  PutTxData 

pop  dx 

pop  cx 

pop  ds 

pop  si 

or  ax,  ax 

jnz  short  xinitl_contO 

xinitl_exit : 

ret 

xmitl  endp 
comment  # 


RcvSome  gets  a  packet  from  queue  buffer. 
Inputs:  ax  =  which  mig 
Returns:  ax  =  0  -  no  error 

cx  =  old  head  pointer 
ds : [si ]  =  buffer 


proc 

far 

mov 

si, 

cs 

mov 

ds. 

si 

shl 

ax. 

1 

mov 

si. 

offset  code: ethernetindex 

add 

si. 

ax 

mov 

si. 

[si]  ;poiiiter  to  ethernetTabl' 

mov 

si. 

[si]  ; pointer  to  structure 

mov 

ax. 

[si] .headPointer 

cmp 

ax. 

[si] .tailPointer 

jz 

short  @rcv_exit 

mov 

bx. 

ax 

mov 

cx. 

ax 

inc 

bx 

cmp 

bx, 

MaxRecords 

jl 

short  @rcv  conto 

xor 

bx. 

bx 

Aviation  Test  Plan  Report 


Page  270 


@rcv_contO; 

mov 

mov 

imul 

lea 

add 

xor 

ret 

§rcv_exit : 

mov 

mov 

ret 

rcvsome 

endp 

comment 

[si]. headPointer ,  bx 

bx,  [sij.planelD 
ax ,  PacketLength 
si,  [sij.pktData 
si,  ax 
ax,  ax 


bx,  [sij.planelD 
ax,  -1 


PutPacketBack  puts  a  packet  back  in  the  queue, 
Input:  ax  =  which  mig 

cx  =  old  head  pointer 


PutPacketBack 


PutPacketBack 


is  put 

back 

in  the  queue 

proc 

far 

push 

ds 

mov 

dx. 

cs 

mov 

ds. 

dx 

shl 

ax. 

1 

add 

ax, 

offset  code:( 

mov 

si. 

ax 

mov 

si. 

[Si] 

mov 

si. 

[Si] 

mov 

[si] 

.headPointer 

pop 

ds 

ret 

endp 
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comment  # 


RxProcess  gets  called  from  either  an  interioipt  handler  responding 
to  a  packet  received  interrupt  or  a  sxibroutine  of  polling  control 
module  which  has  noted  a  received  packet. 

Input:  ax  =  receive  status  (0  means  good,  1  means  bad) 
cx  =  size  of  received  packet 
dh  *  request  ID 

es:di  =  address  of  virtual  packet  header  (see  SetLookAhead) 
currently  is  not  used  (this  will  tell  if  we  want 
the  packet) 


# 

RxProcess 


§rxp_cont9 : 


proc 

near 

■ 

pushad 

push 

ds 

1 

push 

es 

or 

ah,  ah 

1 

jz 

short  @rxp_cont9 

■ 

xor 

cx,  cx 

; release  buffer 

jmp 

short  §rxp_cont4 

■ 

jmp 

@rxp_cont4 

cmp 

cx,  PacketLength 

1 

ja 

short  @rxp_contlO 

mov 

eax,  es:[di]  ;gec  transmitter's  address  ■ 

mov 

bx,  es:[di+4]  ;from  the  packet  header  ■ 

push 

ecx 

■ 

push 

dx 

1 

mov 

ecx,dword  ptr  f ilter_address  ;  _ 

mov 

dx,word  ptr  filter  address+4  ;  ■ 

cmp 

ecx, eax 

compare  addresses  ■ 

jnz 

@rxp_cont21 

cmp 

dx,bx 

till  n 

jnz 

@rxp_cont21 

1 

mov 

dx,es: [di+8] 

get  simulator  ID 

mov 

asat_id,  dx 

save  simulator  ID  ■ 

cmp 

dx, f ilter_id 

compare  simulator  ID  I 

jz 

@rxp_cont21 

Aviation  Tmat  Plan  Raport 


Paga  272 


pop  dx 

pop  ecx 

j  mp  §  rxp_cont 2  2 


§rxp_cont21: 

pop 

dx 

; 

• 

pop 

ecx 

• 

xor 

cx,  cx 

;  release 

buffer 

jmp 

short  §rxp_cont4 

• 

4 

§rxp_cont22 ; 

mov 

di ,  cs 

• 

4 

mov 

ds,  di 

mov 

es,  di 

mov 

di,  offset  code: 

ethernetindex 

mov 

bp,  MAXNUMBEROFMIGS 

@rxp_contO : 

mov 

si,  [di] 

; pointer  to  ethernetTable 

mov 

si,  [si] 

; pointer  to  structure 

cmp 

[si], active,  0 

; active? 

jz 

short  @rxp_contl 

;no,  insert 

push 

ax 

/ 

mov 

ax,  [si].asatid 

• 

i 

cmp 

asat_id,  ax 

; compare 

asat  ID 

pop 

ax 

• 

4 

• 

i 

cmp 

eax,  dword  ptr 

[si] .address 

• 

4 

jnz 

short  @rxp_cont2  ;get  next  one 

e 

f 

cmp 

bx,  word  ptr  [si+4] .address 

jz 

short  §rxp_cont3 

; found 

@rxp_cont2 : 

add 

di,  2 

dec 

bp 

jnz 

short  §rxp_contO 

§rxp_contlO : 

xor 

cx,  cx 

.’release 

buffer 

jmp 

short  §rxp_cont4 

@rxp_contl : 

not 

[si] .active 

;make  it 

active 

• 

mov 

dword  ptr  [si] . address,  eax 

;save 

ethernet 

• 

address 

• 

4 

mov 

word  ptr  [si+4] 

.address,  bx 

xor 

ax,  ax 

jmp 

short  §rxp_cont5 
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§rxp_cont3 : 

inc 

[si] .count 

; increment  counter 

mov 

ax,  [si] .tailPointer 

imul 

ax ,  PacketLength 

@rxp_cont5 ; 

lea 

di ,  [ si ] . pktData 

add 

di,  ax 

§rxp_cont4 : 

push 

di 

t 

push 

si 

push 

cx 

;save  size  of  packet 

push 

ds 

mov 

dl,  040h 

; release  buffer 

call 

GetRxData 

or 

ax,  ax 

pop 

ds 

pop 

ax 

pop 

si 

pop 

bx 

;bx  =  di 

jnz 

short  @rxp_cont6 

;  fail 

jcxz 

short  8rxp_cont6 

;fail 

cmp 

ax,  cx 

jnz 

short  @rxp_cont6 

;fail 

mov 

di,  bx  ;di  =  pointer  in  [si]. pktData 

mov 

bx,  [si].asatid 

• 

f 

call 

restore_address 

; restore 

; transmitter's  address 

; pointed  by  di 

mov 

ax,  [si] .tailPointer 

inc 

ax 

cmp 

ax ,  MaxRecords 

jl 

short  @rxp_cont7 

xor 

ax,  ax 

§rxp_cont7 : 

mov 

[si] .tailPointer,  ax 

mov 

bx,  [si] .headPo inter 

cmp 

ax,  bx 

jnz 

short  @rxp_cont6 

inc 

bx 

cmp 

bx ,  MaxRecords 

jl 

short  @rxp_cont8 

xor 

bx,  bx 

@rxp_cont8 ; 

mov 

[si] .headPointer,  bx 

§rxp_cont6: 

pop 

es 

pop 

ds 

popad 

ret 

RxProcess 

endp 
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InitQ  resets  Q  pointers. 


_InitQ 

• 

proc 

far 

# 

push 

es 

mov 

ax ,  seg  ethernetid 

mov 

es,  ax 

mov 

di,  offset  ethernetid 

mov 

cx,  MAXNUMBEROFMIGS 

xor 

eax,  eax 

cli 

/disable  interrupts 

@iq_contO: 

stosw 

9 

add 

di,  6  /skip  address 

« 

9 

stosd 

• 

9 

stosd 

* 

stosd 

stosw 

add 

di,  Qbytes 

add 

di ,  Qbytes+2  / 

loop 

@iq_contO 

sti 

/turn  interrupts  ba< 

mov 

di,  offset  networkActivity 

mov 

cx,  LENGTH_ACTiyiTy 

xor 

al,  al 

rep 

stosb 

pop 

es 

_InitQ 

ret 

endp 

9 

• 

9 

/  HowManyInNetwork  calculates 
network . 

/  Input;  nothing 

/  Output:  ax  =  number  cf  active 

• 

* 

number  of  actives  nodes  in  the 

nodes 

9 

• 

9 

HowManyinNetwork 

• 

proc 

far 

9 

push 

ds 

mov 

ax,  cs 

mov 

ds,  ax 
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mov 

mov 

xor 


CX,  MAXNUMBEROFMIGS 

si,  offset  code:ethernetIndex 

ax,  ax 


§hinin_contO : 

mov 

mov 

cmp 

jz 

inc 

@hmin_contl: 

add 

loop 

pop 

ret 

HowManyInNetwork 

comment 


CheckNetworkActivity  checks  if  all  the  nodes  in  the  network  are 
still  active.  If  one  has  become  inactive  for  more  than  32  frames, 
that  node  is  assumed  to  be  dead. 

Input;  none 

Output;  ax  =  number  of  active  nodes 


di,  [si]  ; pointer  to  ethernetTable 

di,  [di]  ; pointer  to  structure 

[di]. active,  ah 
short  §hmin_contl 

ax 

si,  2 

@hmin_contO 

ds 

endp 


proc  far 
ds 

ax,  cs 
ds,  ax 

CX,  MAXNUMBEROFMIGS 
si,  offset  code;ethernetIndex 
bx,  offset  code;networkActivity 
dx,  dx 
bp,  bp 

di,  [si]  /pointer  to  ethernetTable 

di,  [di]  /pointer  to  structure 

[di], active,  dl  /is  it  active? 

short  @cna  cont3  /exit 


CheckNetworkActivity 

f 

push 

mov 

mov 

mov 

mov 

mov 

xor 

xor 

@cna_contO ; 

mov 

mov 

cmp 

jz 

mov 

cmp 

jnz 


al,  [di]. count 
al,  [bx] 

short  §cna  cont2 


/get  counter 

/is  it  the  same  one? 

/no,  it  is  a  new 
/packet 


Aviation  Test  Plan  Report 


Page  276 


inc 

byte  ptr  [bx+1] 

; update  repetition 

; counter 

cmp 

byte  ptr  [bx+1],  64  ;if  there  is  no 

; activity 

;for  64  frames,  kill 
;him 

jb 

short  §cna_contl 

mov 

word  ptr  [di]. active,  dx 

mov 

[di] .tailPointer 

,  dx 

mov 

[di] .headPointer 

,  dx 

cmp 

cx,  1 

jz 

short  §cna_cont3 

push 

di 

mov 

di,  [si+2] 

; pointer  to  ethernetTable 

mov 

di,  [di] 

; pointer  to  structure 

cmp 

[di]. active,  dl 

;is  next  one  active? 

pop 

di 

jz 

short  @cna_cont4 

;exit 

mov 

ax,  [di].planeID 

call 

far  ptr  KillMigFromNetwork 

call 

AdjustPointer  ; 

restructure  ethernetindex 

dec 

cx 

jz 

short  §cna__cont3 

jmp 

short  @cna_contO 

@cna_cont2 : 

mov 

[bx],  al 

;save  packet  count 

mov 

[bx+1],  dl 

;zero  out  wait  counter 

@cna_contl: 

inc 

bp 

add 

bx,  2 

add 

si,  2 

loop 

@cna_contO 

§cna_cont3 ; 

mov 

ax,  bp 

pop 

ds 

ret 

§cna_cont4 : 

mov 

ax,  [dij.planelD 

call 

far  ptr  KillMigFromNetwork 

mov 

ax,  bp 

pop 

ds 

ret 

CheckNetworkActivity 

endp 
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conunent 


AdjustPointer  restructures  ethernetindex  and  counter  table  if  a 
node  has  not  been  transmitting  anything  for  more  than  32  frames. 

Input:  si  =  current  pointer  to  ethernetindex 
cx  =  current  value  of  loop  counter 
bx  «  current  pointer  to  networkActivity 
Output:  ethernetindex  and  networJcActivity  have  been  reorganized. 


AdjustPointer  proc  near 

9 

push  es 

push  si 

mov  ax ,  ds 

mov  es ,  ax 

mov  di,  si 

push  di 

push  cx 

add  si,  2 

dec  cx 

rep  movsw 

pop  cx 

pop  di 

mov  ax,  [di] 

stosw 

push  cx 

mov  di ,  bx 

mov  si,  bx 

add  si,  2 

dec  cx 

rep  movsw 

mov  [di],  cx 

pop  cx 

pop  si 

pop  es 

ret 
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§ap_conto ; 


pop 

cx 

pop 

di 

pop 

si 

pop 

ret 

es 

Ad j  ustPointer 

comment 

endp 

MasterSlaveDecision  finds  out  which  one  the  master  is  by  finding 
the  smallest  Ethernet  address. 


Input:  ax  =  number  of  players-1 
Output:  ax  =  ID  # 

0  -  master 

non  zero  positive  - 

-1  -  error 


slave 


MasterSlaveDecision 


proc 

far 

push 

ds 

mov 

bx. 

seg  ethernetAddress 

mov 

ds. 

bx 

mov 

bx, 

offset  ethernetAddress 

mov 

edx, 

r  [bx] 

mov 

bp, 

tbx+4] 

mov 

bx. 

cs 

mov 

ds. 

bx 

push 

ax 

call 

far 

ptr  HowManyInNetwork 

pop 

bx 

mov 

di. 

-1 

cmp 

ax. 

bx 

jb 

short  @msd  cont2  ;wait  for  some 

;more  people 

mov 

cx. 

ax 

mov 

si. 

offset  code:ethernetIndex 

xor 

di. 

di 

i 


Aviation  Teat  Plan  Report 


Page  279 


§iasd  contO: 


@nisd_cont3 : 
@insd  contl: 


@insd  cont2 : 


MasterSlaveDecision 


lodsw 

mov 

bx,  ax 

; pointer  to  ethernet 

; Table 

mov 

bx,  [bx] 

; pointer  to  structure 

cmp 

f ilter_id. 

1  ; always  filter_id 

jz 

short  §msd_ 

contl  ;  =  1  is  master 

cinp  edx,  dword  ptr  [bx]. address 

jb  short  @msd_contl 

ja  short  §msd_cont3 

cmp  bp,  word  ptr  [bx+4 ]. address 

jbe  short  @msd_contl 


inc  di 

loop  @insd_contO 


mov  ax,  di 

pop  ds 

ret 
endp 


comment 


PlayerInTeam  counts  number  of  players  in  Blue  Team  and  Red  Team. 
Input;  ax  =  number  of  players~l 

es;[di]  =  table  to  store  ethernet  address  and  team  mode 

(minimum  size  =  MAXNUMBEROFMIGS  *  TeamEntryLength 
+  2) 

Output;  al  =  number  of  players  in  Blue  Team 
ah  =  number  of  players  in  Red  Team 
table  — >  number  of  entries  —  word 
entries  —  8  bytes  each 


PlayerInTeam 


proc 

far 

push 

ds 

push 

di 

mov 

cx. 

ax 

xor 

ax. 

ax 

xor 

bx. 

bx 

xor 

dx. 

dx 

add 

di. 

2 
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@pit_contO: 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

mov 

ax,  cx 

dec 

ax 

call 

far  ptr  RcvSome 

or 

ax,  ax 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

jnz 

short  @pit_contl  ; error 

cmp 

word  ptr  [si+6] ,  MODEO_LENGTH 

jnz 

short  @pit_contO 

cmp 

[si+10],  bx  ;status  0  - 

master/slave 

jnz 

;decision 

short  @pit  contO 

cmp 

byte  ptr  [si+12],  RedTeam 

jnz 

short  @pit_cont2 

inc 

ah 

jmp 

short  §pit_cont3 

@pit_cont2 : 

cmp 

byte  ptr  [si+12],  BlueTeam  ;  n  o  t 

inc 

; necessary 
al 

@pit  cont3: 

movsd 

; ethernet 

movsw 

add 

; address 

si,  6  I 

movsb 

inc 

di 

inc 

dx 

@pit  contl: 

loop 

@pit_contO 

pop 

di 

mov 

es; [di] ,  dx 

pop 

ds 

PlayerInTeam 

ret 

endp 
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comment 


SortEthernetAddress  sorts  ethernet  address  to  get  plane  ID  number. 
Input:  ds:[si]  =  table  created  by  PlayerInTeam 

es:[di]  =  table  of  ID  #  in  sort  of  ascending  order 

(enemies  —  in  order,  followed  by  friends  in 
order) 

dl  =  team  mode 
dh  =  master 

Output:  table  is  sorted  based  on  ethernet  address 


SortEthernetAddress  proc  far 


8 


@sea  contl: 


§sea  cont2: 


push 

di 

push 

si 

push 

si 

lodsw 

mov 

cx,  ax 

shl 

cx,  3 

; times  8 

mov 

bx,  si 

;  TeamEntry  Length^ 

add 

bx,  cx 

mov 

ebp,  dword  ptr  ethernetaddress 

mov 

[bx] ,  ebp 

mov 

bp,  ethernetaddress [ 4 ] 

mov 

[bx+4],  bp 

mov 

[bx+6],  dl 

push 

di 

push 

dx 

mov 

di,  si 

add 

di,  TeamEntry Length 

mov 

cx,  ax 

mov 

ebx,  [si] 

mov 

edx,  [si+4] 

cmp 

ebx,  [di] 

jb 

short  @sea_cont3 

ja 

short  §sea_cont4 

;swap 

cmp 

dx,  [di+4] 

jb 

short  §sea_cont3 
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@sea  cont4 : 


@sea  cont3: 


@sea  cont6; 


@sea  contS: 


@sea  cont7: 


I 


xchg 

ebx,  [di] 

xchg 

edx,  [di+4] 

add 

di ,  TeamEntry Length 

loop 

@sea_cont2 

mov 

[si],  ebx 

mov 

[si+4],  edx 

add 

si,  TeamEntry Length 

dec 

ax 

jnz 

short  @sea_contl 

pop 

dx 

pop 

di 

pop 

si 

lodsw 

inc 

ax 

push 

si 

mov 

bp,  ax 

mov 

cx,  ax 

add 

si,  6 

lodsw 

cmp 

al,  dl 

jz 

short  @sea_cont5 

mov 

ax,  bp 

sub 

ax,  cx 

cmp 

al,  dh 

jz 

stosb 

short  @sea_cont5 

loop 

@sea_cont6 

pop 

si 

mov 

cx,  bp 

add 

lodsw 

si,  6 

cmp 

al,  dl 

jnz 

short  @sea_cont8 

mov 

ax,  bp 

sub 

ax,  cx 

cmp 

al ,  dh 

jz 

stosb 

short  @sea_cont8 

; save  counter 

;skip  ethernet 
.’address 
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@sea  contS: 


@sea  contO: 


gsea  cont9: 


@sea  contll: 


@sea  contl2 : 


loop 

@sea_cont7 

mov 

byte  ptr  es:[di],  -1 

pop 

si 

pop 

di 

push 

es 

mov 

ax,  cs 

mov 

es,  ax 

lodsw 

mov 

cx,  ax 

mov 

bp,  ax  ; number  of  nodes 

;in  the  network 

inc 

cx 

lodsd 

mov 

lodsd 

edx,  eax 

cmp 

edx,  dword  ptr  ethernetaddress 

jnz 

short  @sea_cont9 

cmp 

ax,  ethernetaddress [4 ] 

jz 

short  @sea_contlO 

push 

si 

push 

bp 

push 

cx 

push 

di 

mov 

cx,  bp 

mov 

bx,  offset  code : ethernetindex 

mov 

di,  es: [bx] 

mov 

di,  es;[di] 

cmp 

edx,  dword  ptr  es: [di] . address 

jnz 

short  esea_contl2 

cmp 

ax,  word  ptr  es: [di+4] .address 

jnz 

short  @sea_contl2 

mov 

bp,  sp 

mov 

si,  [bp] 

mov 

cbw 

al,  [si] 

mov 

es: [di] .planelD,  ax 

jmp 

short  §sea_contl3 

add 

bx,  2 

loop 

@sea_contll 
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§sea_contl3 : 

pop  dl 

pop  cx 

pop  bp 

pop  si 

inc  di 

§sea_contlO: 

loop  §sea_contO 

pop  es 

ret 

SortEthernetAddress  endp 


ExitRcvInt 


ExitRcvInt  proc  near 
iret 

ExitRcvInt  endp 


sawecs  proc  near 

push  ds 

push  es 

push  si 

push  di 

push  cx 

mov  ax , ds 

inov  es,ax 

xor  ax, ax 

mov  ds , ax 

mov  cx,22h  ;vectors  0  -  21h,  2  wds  per 

mov  di, offset  CODE:vectsv 

xor  si, si 

cld 

cli 

rep  movsd  ;save  'em  all 

sti 

pop  cx 

pop  di 

pop  si 

pop  es 

pop  ds 

ret 

sawecs  endp 
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fixvecs  proc  near 

push  es 

push  si 

push  di 

push  cx 

xor  ax, ax 

nov  es , ax 

mov  cx,22h  ; vectors  0  -  21h,  2  wds  per 

mov  si, offset  CODErvectsv 

xor  di,di 

cld 

cli 

rep  movsd  ; restore  'em  all 

sti 

pop  cx 

pop  di 

pop  si 

pop  es 

ret 

fixvecs  endp 

RCODE  ENDS 
END 
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12.3  F31toc.asm 


title  f31toc.asm 

jit'k'k'kit'k'k'kitit'k'k'k’k’k'k’kiK'kltit'k'k’kie’k'kit'k'kitit'kit'kit'kiK'kiticic'k'k'kiK'k'k'k'k'k'k'kit'k'kit'k'kieitifk'k 

;  File:  F3LT0C.ASM 

9 

;  Description:  This  file  contains  subroutines  which  provide  the 
;  C  program  with  an  interface  to  the  3L  1.0  routines. 

;  This  program  prepared  two  receiving  buffers,  one 

;  for  AS  ATI  and  the  other  for  ASAT2 .  The  AS  AT 

;  addresses  are  replaced  by  the  PC's  address.  Each 

;  received  packet  is  time-stamped. 

9 

;  >  rcvptrq+2  2  4 

.  + - + 

;  j  packet  address  |  packet  length  j 

.  + - + 

;  rvcptrq  0-10  1 

.  + - + 

;  j  number  packets  [ 

.  +— - + 

9 

;  The  Host  memory  buffers  are  ring  queues. 

9 

;  Functions  called  by  C  programs 

PUBLIC  _getds 

PUBLIC  _cInitParameters 
PUBLIC  _cInitAdapters 
PUBLIC  _cResetAdapter 
PUBLIC  _cWhoAmI 
PUBLIC  _cRdRxFilter 
PUBLIC  _cWrRxFilter 
PUBLIC  _cSetLookAhead 
PUBLIC  etext 
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PUBLIC  cXmitl 


PUBLIC 

_cInitBufPtr 

PUBLIC 

_cGet_Pannsptr 

PUBLIC 

_cGetPkttrxPtr 

PUBLIC 

_cRcvFlag 

PUBLIC 

_cGetNumPkt 

PUBLIC 

_cGetOnePkt 

PUBLIC 

_cPassHead 

PUBLIC 

_cinyAddress 

PUBLIC 

_cGe tT imeCount 

PUBLIC 

_cGettimeptr 

PUBLIC 

_cGe tT imeQPt r 

;Need  to  be  written  in  C 

extrn 

_inyExitRcvInt 

:near 

extrn 

_itiyRxProcess 

:near 

extrn 

_myTxProcess 

:near 

extrn 

_CheckHead 

:near 

.•Functions  provide  by  this  file 

PUBLIC 

ExitRcvInt 

PUBLIC 

RxProcess 

PUBLIC 

TxProcess 

;3L  library  functions 

extrn 

InitParameters 

:  near 

extrn 

InitAdapters 

:near 

extrn 

WhoAml 

:near 

extrn 

ResetAdapter 

inear 

extrn 

RdRxFilter 

:near 

extrn 

WrRxFilter 

:near 

extrn 

GetRxData 

:near 

extrn 

SetLookAhead 

:near 

extrn 

PutTxData 

:near 

;3L  503 

library  variables 

extrn 

v_hdr_size 

;word 

extrn 

packet_hdr_addr 

:word 

;not  used  in  this  version 
;not  used  in  this  version 
;not  used  in  this  version 


;not  used  in  this  version 
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define  constants 


If  egu  Oah 

cr  equ  Odh 

Hdlen  equ  024h 

PacketLength  equ  566 

Qbytes  equ  13584  ;buffer  size  per  Asat 

MaxPktInQ  equ  Qbytes/ PacketLength 

CODE  GROUP  _TEXT,  DATA,  ICODE 

_TEXT  segment  byte  piiblic  'CODE' 

DGROUP  group  _DATA,  _BSS 

assume  cs:_TEXT,  ds: DGROUP,  ss: DGROUP 
_TEXT  ends 

DATA  segment  word  public  'CODE* 

DATA  ends 

ICODE  segment  word  public  'CODE' 

ICODE  ends 

DATA  segment 

his_ds  dw  ? 

his_es  dw  ? 

int_ds  dw  ? 

int_es  dw  ? 

int_di  dw  ? 

int_si  dw  ? 

int_cx  dw  ? 

int_dx  dw  ? 

etext  db  ? 
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;WhoAinI  adapter  info  stiructure 


ad_info  struc 
ea  db 

6  dup(O) 

;enet  addr 

verl  db 

0 

; major  ver 

ver2  db 

0 

;minor  ver 

ver3  db 

0 

;sub  ver 

ver4  db 

0 

;type  ver 

atyp  db 

0 

; adapter  type 

astat  db 

0 

; adapter  status 

bfrs  db 

0 

;buffer  flags 

nxb  db 

0 

; number  of  xmit  buffers 

sxb  dw 

0 

;xmit  buffer  size 

xmtc  dd 

0 

;xmit  count 

xmte  dd 

0 

;xmit  errs 

xmtto  dd 

0 

;xmit  timeouts 

rcvc  dd 

0 

;rcv  count 

rcvbc  dd 

0 

; beast  rev  count 

rcve  dd 

0 

;rcv  errs 

rtc  dd 

0 

; retry  count 

xfmd  db 

0 

;xfer  mode  flags 

wtmd  db 

0 

;wait  mode  flags 

extp  dw 

ad__info  ends 

0 

; extension  pointer 

id_struc 

struc 

address 

db 

6  dup(O)  ;ethernet  address 

count 

db 

0  ;byte  to  check  packet  ID  (whether 

;the  same  packet  received  twice 

headPointer 

dw 

0 

tailPointer 

dw 

0 

headAddress 

dw 

0  ;head  pointer  to  pktData 

tailAddress 

dw 

0  ;tail  pointer  to  pktData 

pktData 

db 

Qbytes  dup(O) 

tlmehead 

dw 

0 

timetail 

dw 

0 

timelN 

dd 

MaxPktInQ  dup(O)  ; store  time  stamp  at 

; packet  in 

timenext 

dw 

0  ; pointer  of  next  time 

;  address  to 

id_struc 

ends 

; timetail 

;WhoAinI  buffer 

wbf 

ad  info  <>  ;WhoAiQl 

buffer 

myaddress 

db 

02h, 60h, 8ch, 4bh, Odh, 9bh  ;pc  3COM 

address 
rcvf lag 
packet  rev. 

dw 

0  ;0:  disable 

;1:  enable 

packet  rev. 
;Asat  buffers 

Asatl 

id_st3ruc  <> 

Asat2 

id_struc  <> 

ttailptr 

dw 

0  ;  current  time  stamping  pointer 

tnextptr 

dw 

0  ;  next  time  stamping  pointer 
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stkcheck 

dw  OABCDh  ;  stack  clobber  check  dw 

dw  512  dup(O) 

topstack 

dw  0  ;  adapter  0  stack  top  (and  stack 

;  in  use  flag) 

vectsv  dd 

22h  dup  (0)  ;save  all  vectors  so  we  can 

; cleanup 

retsav  dw 

7 

crlf  db 

cr,lf,'$‘ 

pklen  dw 

0 

pkerr  dw 

0 

pkcnt  dw 

0 

pkcount  dw 

0 

asatid  dw 

0  ;asat  id 

addid  dw 

0 

trxbuf  db 

PacketLength  dup(O)  ; buffer  for  transmitting 

pkthd  db 

36  dup(O) 

;  time  variables 

temp_lo 

db  0 

temp_hi_bit 

db  0 

timelo 

dw  0 

timehi 

dw  0 

temp_lol 

db  0 

temp__hi_bitl 

db  0 

timelol 

dw  0 

timehil 

dw  0 

nextlo 

dw  0 

nexthi 

dw  0 

DATA  ends 

DATA  segment 

word  public  'DATA' 

d@  label 

byte 

DATA  ends 

_BSS  segment 

word  public  'BSS' 

b@  label 

byte 

BSS  ends 

_DATA  segment 

word  public  'DATA' 

s@  label 

byte 

_DATA  ends 

TEXT  SEGMENT 

ASSUME 

CS;_TEXT,  DSiDGROUP,  SSrDGROUP 
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getds  proc  near 

push  bx 

nov  ax,ds 

mov  cs;his_ds,ax 

mov  ax,es 

mov  cs:his_es,ax 

mov  bx,  seg  Asatl 

pop  bx 

ret 

getds  endp 


cGet_Parmsptr  :  This  subroutine  returns  a  pointer  points  to  the 

address  of  WhoAmI  structure  'wbf  and  MaxPktInQ. 
Calling  sequence: 

cGet_Parmsptr (Sparmsdr, STotPktsInQ) ; 

INPUT  :  Non 
Return :  Non 


_cGet_Parmsptr  proc  near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

bx 

push 

ds 

mov 

ax,cs 

mov 

ds,ax 

mov 

bx,  offset  code; wbf 

;  get  WhoAmI  address 

pop 

ds 

mov 

si, [bp+4] 

;  mov 

word  ptr  [si+2],ax 

;  pass  segment  cs 

mov 

word  ptr  [si],bx 

;  pass  pointer 

mov 

bx,  MaxPktInQ 

mov 

si,  [bp+6] 

mov 

word  ptr  [si],  bx 

;  pass  queue  size 

xor 

ax,  ax 

pop 

bx 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cGet_Parmsptr  endp 
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cmyAddress 

This  siibroutine  sets  up  'myaddress*  from  wbf. address.  It  is 
called  after  InitAdapters . 

Calling  sequence; 
cmyAddress ( ) ; 

Return :  NON 


cmyAddress  proc  near 
push  ds 

push  cx 

mov  ax ,  cs 

mov  ds ,  ax 

mov  cx ,  6 

mov  si,  offset  code: wbf 

mov  di,  offset  code:myaddress 

rep  movsb 

xor  ax,  ax 

pop  cx 

pop  ds 

ret 

cmyAddress  endp 


;  source  address 
;  destination 
;  address 
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cRcvFlag 

This  sxibroutine  sets  up  the  receiving  flag  'rcvflag*  which  is 
used  by  RxProcess  to  start  to  receive  packets  if  rcvflag  =  1. 

Calling  secjuence: 
cRcvFlag (Rcvflag) ; 

Return :  NON 


cRcvFlag  proc 
push 
mov 
push 

mov 

mov 

mov 

mov 

xor 

pop 

pop 

ret 

cRcvFlag  endp 


near 

bp 

bP/Sp 

ds 

ax,cs 
ds,  ax 

ax,  [bp+4] 
cs: rcvflag,  ax 

ax,  ax 

ds 

bp 


get  receive  flag 
save  flag 
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_cGettiineptr  :  This  subroutine  returns  the  time  pointer  points  at 

low  word  to  C  program. 

Calling  sequence: 

cGettimeptr ( fitimeptr) 

Return :  Non 


cGettimeptr  proc  near 

push  bp 

mov  bp , sp 

push  si 

push  ds 

mov  ax,cs 

pop  ds 

mov  si,[bp+4] 

mov  word  ptr  [si], offset  cs:timelo 

mov  word  ptr  [si+2],ax 

pop  si 

pop  bp 

ret 

cGettimeptr  endp 


I 
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GetTimeCount 

This  function  returns  a  timestamp  constructed  of  the  Timer 
0  value  and  the  lowest  word  of  the  MS-DOS  clock.  The  Timer 
0  is  a  count-down  timer,  so  it  is  converted  to  form  a 
coherent  timestamp  value.  The  Timer  value  is  returned  in 
the  AX  register  (low  word)  and  the  clock  value  is  returned 
in  the  DX  register  (high  word) . 


GetTimeCount 


proc 

near 

push 

ds 

;set  segment  pointer  for 
; clock  read 

push 

dx 

push 

ax 

mov 

ax, 0040h 

mov 

ds,  ax 

• 

mov 

al,0c2h  ;set  up  for  count/status  latch 

cli 

;no  ints  here 

out 

043h,al 

; latch 

mov 

dx, ds : 006ch 

;get  clock  Isw 

sti 

.•restore  ints 

mov 

cs: timehi,dx 

; store  time  high  word 

in 

al,040h 

.•get  status 

and 

al, 080h 

;get  msbit 

mov 

csrtemp  hi  bit 

,al  .•store  msbit 

in 

al,040h 

.•get  Isb  of  count 

mov 

cs:temp_lo,al 

.•store  Isb  of  count 

in 

al , 040h 

.•get  msb  of  count 

mov 

ah,  al 

mov 

al,cs;temp_lo 

.•get  count  into  ax  reg 

ror 

ax,  1 

or 

ah , cs : temp_hi_ 

bit  .•get  back  bit  16 

not 

ax 

; change  from 
.•count-down  to 

; count-up 

mov 

cs:timelo,ax 

.•store  time  low  word 

pop 

ax 

pop 

dx 

pop 

ds 

.•restore  segment 

GetTimeCount 


ret 

endp 


.•pointer 
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GetTimeCountl 

This  function  returns  a  timestamp  constructed  of  the  Timer 
0  value  and  the  lowest  word  of  the  MS-EXDS  clock.  The  Timer 
0  is  a  count-down  timer,  so  it  is  converted  to  form  a 
coherent  timestamp  value.  The  Timer  value  is  returned  in 
the  AX  register  (low  word)  and  the  clock  value  is  returned 
in  the  DX  register  (high  word) . 


GetTimeCountl  proc 

push 

push 

push 

mov 

mov 

mov 


cli 

out 

mov 

sti 

mov 

in 

and 

mov 

in 

mov 

in 

mov 

mov 

ror 

or 

not 


mov 


pop 

pop 

pop 

ret 

GetTimeCountl  endp 


near 

ds  ;set  segment  pointer  for 

; clock  read 
dx 
ax 


ax,0040h  ; 

ds , ax  ; 

al,0c2h  ;set  up  for  count/status 

; latch 


;no  ints  here 
043h,al  ; latch 

dx,ds:006ch  ;get  clock  Isw 

; restore  ints 


cs: timehil,dx  . ; store  time  high  word 


al, 040h 
al , 080h 

cs : temp_hi_bitl , al 
al, 040h 
cs : temp_lol , al 
al,040h 
ah,  al 

al , cs : temp_lol 
ax,  1 

ah , cs : temp_hi_bit 1 
ax 


;get  status 
;get  msbit 
; store  msbit 
;get  Isb  of  count 
; store  Isb  of  count 
;get  msb  of  count 

;get  count  into  ax 


;get  back  bit  16 
; change  from 
; count-down 
;to  count -up 


cs: timelol, ax 


;  store  time  low 
;  word 


ax 

dx 

ds  ; restore  segment 

;pointer 
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cGetTimeCount 

This  subroutine  is  prepared  for  C  program  call 
GetTimeCount . 


cGetTimeCount  proc  near 

call  GetTimeCount 

ret 

CGetTimeCount  endp 


t 

;_cGetTimeQPtr  :  This  subroutine  returns  the  time  buffer  tail 

pointer  and  the  next  pointer,  if  it  is  available, 
to  the  C  program.  AsatID  decides  the  timer  Q. 

; Cal ling  sequence: 

;  cGetTimeQPtr  (AsatID,  &TimePtr ,  StNextTimePtr)  ; 

; Return:  AX  :  0 
;  1  -  error 

/ 

CGetTimeQPtr  proc 

near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

cx 

push 

bx 

push 

ds 

mov 

ax,  cs 

mov 

ds,  ax 

mov 

bx,  [bp+4] 

;  get  asat  ID 

cmp 

bx,  1 

jnz 

@gettimel 

mov 

di,  offset  cs:Asatl 

;  load  asatl 
;  address 

jmp 

short  @gettime2 

@gettimel : 

cmp 

bx,  2 

jnz 

short  §gettimeE 

mov 

di,  offset  cs:Asat2 

;  load  asat2 
;  address 

@gettime2 : 

mov 

cx,  [di] . timetail 

mov 

cs;ttailptr,  cx 

mov 

cx,  [di] . timenext 

mov 

cs : tnextptr ,  cx 

pop 

ds 

mov 

si,  [bp+6] 

mov 

cx,  cs:ttailptr 

mov 

word  ptr  [si],  cx 

mov 

word  ptr  [si+2],  ax 
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mov 

si,  tbp+8] 

mov 

cx,  cs:tnextptr 

mov 

word  ptr  [si],  cx 

mov 

word  ptr  [si+2],  ax 

xor 

ax,  ax 

jmp 

short  @gettimeEx 

@gettimeE: 

pop 

ds 

mov 

ax,  1 

@gettimeEx: 

pop 

bx 

pop 

cx 

pop 

di 

pop 

si 

pop 

ret 

bp 

_cGetTimeQPtr  endp 

cInitAdapters;  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  InitAdapters  function. 


Calling  Sequence: 

int  cInitAdapters (SnAdapters) 

Input  Parameters: 

None 

Output  Parameters: 
int  nAdapters 

Returns : 

The  return  value  of  the  InitAdapters  function 


cInitAdapters 

proc  near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

ax,cs 

mov 

ds,ax 

mov 

di, offset  CODE:RxProcess 
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call 

InitAdapters 

pop 

ds 

mov 

di,word  ptr[bp+4] 

mov 

word  ptr[di],cx 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cInitAdapters 

endp 

_cInitParaineters:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  InitAdapters  function. 

Calling  Sequence: 

int  cInitParameters (Farms) 

Input  Parameters: 

char  *Parms  -  Pointer  to  a  structure  with  overrides  of  default 
parameters. 

Output  Parameters : 

None 

Returns : 

The  return  value  of  the  InitParameters  function 


cInitParameters  proc  near 


push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

bx, [bp+4] 

mov 

ax,ds 

mov 

es,ax 

mov 

ax,  cs 

mov 

ds,  ax 

call 

sawecs 

call 

InitParameters 

pop 

ds 

pop 

di 

pop 

si 

pop 

ret 

bp 

CInitParameters  endp 
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cResetAdapter :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  ResetAdapters  function. 


Calling  Sequence: 

int  cResetAdapter ( ) 

Input  Parameters: 

None 

Output  Parameters: 

None 

Returns : 

The  return  value  of  the  ResetAdapter  function 


f 

_cResetAdapter 

proc  near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

dx,  0 

mov 

ax,cs 

mov 

ds,  ax 

mov 

dl,0 

call 

ResetAdapter 

call 

f ixvecs 

pop 

ds 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cResetAdapter 

endp 
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;_cWhoAmI:  This  procedure  provides  the  glue  between  a  C 

;  program  and  the  3L  1.0  WhoAmI  function. 

• 

$ 

; Calling  Sequence: 

;  int  cWhoAmI (fiWhoPtr) 

$ 

; Input  Parameters: 

;  None 

• 

f 

; Output  Parameters: 

;  struct  WhoStruct  far  *WhoPtr  -  Far  pointer  to  the  WhoAmI 

structure 

; Returns: 

;  The  return  value  of  the  WhoAmI  function 


cWhoAmI  proc 

near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

dx,0 

mov 

ax,  cs 

mov 

ds,  ax 

call 

WhoAmI 

pop 

ds 

mov 

si, [bp+4] 

mov 

Word  ptr  [si],di 

mov 

Word  ptr  [si+2],es 

pop 

di 

pop 

si 

pop 

bp 

ret 

cWhoAmI  endp 
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cRdRxFilter; 


This  procedure  provides  the  glue  between  a  C 
program  and  the  3L  1.0  RdRxFilter  function. 


Calling  Sequence: 

int  CRdRxFilter (SRxFilter) 


Input  Parameters: 
None 


Output  Parameters: 

int  RxFilter  -  The  receive  filter  value 
Returns : 

The  return  value  of  the  RdRxFilter  function 


cRdRxFilter  proc  near 
push  bp 

mov  bp , sp 

push  si 

push  di 

push  ds 

mov  ax,cs 

mov  ds , ax 

mov  dx , 0 

call  RdRxFilter 

pop  ds 

mov  di,[bp+4] 

mov  [di],bx 

pop  di 

pop  si 

pop  bp 

ret 

CRdRxFilter  endp 
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cWrRxFilter : 


This  procedure  provides  the  glue  between  a  C 
program  and  the  3L  1.0  WrRxFilter  function. 


Calling  Sequence: 

int  CWrRxFilter (RxFilter) 

Input  Parameters: 

int  RxFilter  -  The  new  receive  filter  value 

Output  Parameters : 

None 

Returns : 

The  return  value  of  the  WrRxFilter  function 


CWrRxFilter  proc  near 


push 

bp 

mov 

bP/Sp 

push 

ds 

push 

si 

push 

di 

mov 

ax,cs 

mov 

ds,  ax 

mov 

dx,  0 

mov 

ax, [bp+4 ] 

call 

WrRxFilter 

pop 

di 

pop 

si 

pop 

ds 

pop 

bp 

ret 

CWrRxFilter 

endp 
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cSetLookAhead:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  SetLookAhead  function. 


Calling  Sequence: 

int  CSetLookAhead (NumBytes) 

Input  Parameters: 

int  NumBytes  -  The  number  of  bytes  of  look  ahead  data 

Output  Parameters: 

None 

Returns : 

The  return  value  of  the  SetLoo)cAhead  function 


_cSetLookAhead 

proc  near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

ax,cs 

mov 

ds,  ax 

mov 

dx,0 

mov 

ax, [bp+4] 

call 

SetLookAhead 

pop 

ds 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cSetLookAhead 

endp 
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TxProcess:  This  procedure  is  the  protocol-side  routine  which  is 

called  when  a  packet  has  finished  transmitting  (see 
_cInitAdapters) .  It  provides  the  glue  between  the  3L 
1.0  routines  and  C  routine  called  myTxProcess. 

myTxProcess  Calling  Sequence: 

void  myTxProcess (Status,  RequestID) 

myTxProcess  Input  Parameters: 

int  Status  -  Receive  status 

int  RequestID  -  The  request  identifier 

myTxProcess  Returns: 

Nothing 


TxProcess  proc 

near 

push 

bp 

push 

si 

push 

di 

push 

ds 

push 

es 

push 

ax 

mov 

ax,cs:his_ds 

mov 

ds,ax 

mov 

es,  ax 

pop 

ax 

xor 

cx,cx 

mov 

cl  ,dh 

xor 

dh,dh 

push 

cx 

push 

ax 

call 

_myTxProcess 

add 

sp,4 

pop 

es 

pop 

ds 

pop 

di 

pop 

si 

pop 

bp 

ret 

TxProcess  endp 
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ExitRcvInt:  This  procedure  is  the  protocol-side  routine  which  is 
called  when  the  3L  has  completed  a  receive  interrupt. 


ExitRcvInt  proc  near 
iret 

ExitRcvInt  endp 


_cPassHead;  This  subroutine  should  be  called  by  'C  program  at 
least  once  after  the  call  to  '_cInitBufPtr '  in  order 
to  pass  the  address  of  'pkthd'  to  'Hdptr->inh'  in  'C. 
Calling  sequence: 

cPassHead(&Hdptr) ; 

Return :  NON 


cPassHead  proc  near 

push  bp 

mov  bp , sp 

push  si 

push  bx 

push  es 

push  ds 

mov  ax,cs 
mov  ds , ax 

pop  ds 

mov  si,[bp+4] 

mov  word  ptr  [si], offset  cs:pkthd+4 

mov  word  ptr  [si+2],ax 

pop  es 

pop  bx 

pop  si 

pop  bp 

ret 

cPassHead  endp 
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@gethptrl : 


cmp  bx ,  2 

jnz  §gethptr2 

mov  di,  offset  code:Asat2 

mov  di,  [di] .headAddress 

egethptr2 : 

pop  ax 

pop  ds 

ret 

get_bufHdptr  endp 


/ 

;  update_ 

;  INPUT 
;  OUTPUT 

AsatHdptr:  Update  Asatx. count,  Asatx.headPointer , 

Asatx . headAddress  after  receiving  a  packet. 

;  bx  =  Asat  ID,  1  for  Asatl,  2  for  Asat2. 

:  NON 

t 

update  AsatHdptr 

proc  near 

push 

ds 

push 

di 

push 

ax 

mov 

ax,  cs 

mov 

ds,  ax 

cmp 

bx,  1 

jnz 

@updateHdl 

mov 

di,  offset  code: Asatl 

jmp 

short  @updateHd2 

@updateHdl; 

cmp 

bx,  2 

jnz 

@updateHdE 

mov 

di,  offset  code:Asat2 

@updateHd2 : 

cmp 

[di] .headPointer,  MaxPktInQ 

jnz 

§updateHd3 

mov 

[di] .headPointer,  0 

mov 

ax,  di 

add 

ax,  15 

sub 

ax,  PacketLength 

mov 

[di] .headAddress,  ax 

mov 

ax,  di 

add 

ax,  15+Qbytes 

mov 

[di] . timehead,  ax 

@updateHd3 : 

inc 

[di] .count 

inc 

[di] .headPointer 

add 

[ d i ] . headAddress ,  PacketLength 

add 

[di] . timehead,  4 
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§updateHdE : 

pop 

ax 

pop 

di 

pop 

ds 

ret 

update_AsatHdptr 

endp 

PutTime:  Put  time  in  timelo/timehi  into  Asatx.timeIN  pointed  by 
Asatx . timehead . 

INPUT  ;  bx  =  Asat  ID,  1  for  Asatl,  2  for  Asat2. 

OUTPUT  :  NON 


PutTime 


@puttimel : 


@puttime2 ; 


§puttimeE: 


PutTime 


proc  near 

push  di 

push  ax 

cmp  bx ,  1 

jnz  @puttimel 

mov  di,  offset  code: Asatl 

jmp  short  @puttime2 

cmp  bx ,  2 

jnz  §puttimeE 

mov  di,  offset  code;Asat2 

mov  di,  [di] .timehead 

mov  ax,  cs:timelol 

mov  [di],  ax 

mov  ax,  csrtimehil 
mov  2[di],  ax 

pop  ax 

pop  di 

ret 
endp 
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RxProcess; 


This  procedure  is  the  protocol-side  routine  which  is 
called  when  a  packet  has  been  received  (see 
_cInitAdapters) .  It  provides  the  glue  between  the 
3L  1.0  routines  and  C  routine  called  myRxProcess . 

myRxProcess  Calling  Sequence: 

void  myRxProcess (Status,  PacketSize,  RequestID,  PacketHeader) 

myRxProcess  Input  Parameters: 
int  Status  -  Receive  status 

int  PacketSize  -  Size  of  the  received  packet 
int  RequestID  -  The  request  identifier 

char  far  *PacketHeader  -  Address  of  the  virtual  packet  header 

myRxProcess  Returns: 

Nothing 


RxProcess  proc 
push 
push 
push 
push 
push 
push 

mov 

mov 

mov 

mov 

cmp 

jz 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

call 


near 

bp 

di 

si 

ds 

es 

bx 

ax,cs 

ds,ax 

cs:pklen,  cx 
ax,  cs:rcvflag 
ax,  0 
@RxcntO 

cs : int_dx , dx 
cs: int_cx, cx 
cs: int_ds,ds 
cs : int_es , es 
cs: int_di,di 
cs: int_si,si 
ds, cs:his_ds 
es,cs:his__es 

CheckHead 


;  save  packet  length 
;  get  flag 

;  if  1,  receive  packet 
;  release  3com  buffer 
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@RxcntO: 


@Rxcntl; 


@Rxcnt2 ; 


@Rxcnt5 ; 


mov 

ds, cs: int_ds 

mov 

es , cs : int_es 

mov 

di, cs: int_di 

mov 

si,cs:int_si 

mov 

cx , cs : int_cx 

mov 

dx , cs : int_dx 

mov 

cs:asatid,  ax 

cmp 

ax,  1 

jz 

§Rxcntl 

cmp 

ax,  2 

jz 

@Rxcnt2 

xor 

cx,  cx 

;  packet  length  0 
;  release  adapter  buffer 

mov 

di, offset  CODE:pktdat 

;  load  dummy  buffer  address 

jmp 

@Rxcnt5 

mov 

di,  offset  code:Asatl 

xor 

ax,  ax 

mov 

al,  [di]. count 

;  get  packet  count 

cmp 

ax,  MaxPktInQ 

jz 

@RxcntO 

mov 

cx,  csrpklen 

;  restore  packet  length 

mov 

bx,  1 

• 

f 

call 

get_bufHdptr 

;  get  header  address  from 

jmp 

short  @Rxcnt5 

;  Asatl 

mov 

di,  offset  code:Asat2 

xor 

ax,  ax 

mov 

al,  [di]. count 

;  get  packet  count 

cmp 

ax,  MaxPktInQ 

jz 

§RxcntO 

mov 

cx,  cs:pklen 

;  restore  packet  length 

mov 

bx,  2 

r 

call 

get_bufHdptr 

;  get  header  address  from 
;  Asat2 

mov 

cs:pkerr, 0 

mov 

di, offset  CODE:pkthd 

; buffer 

mov 

di,cs:bufptr 

;load  offset  in  the  buffer 

or 

dl, 40h 

;  release  buffer 
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;  ********************** 
call  GetRxData 
;  ********************** 


jcxz 

§Rxcnt6 

mov 

cs:pkerr,ax 

mov 

cs:pklen,cx 

mov 

bx,  cs: asat id 

call 

GetTimeCountl 

call 

PutTime 

call 

update_AsatHdptr 

inc 

cs : pkcount 

§Rxcnt6 ; 

pop 

bx 

pop 

es 

pop 

ds 

pop 

si 

pop 

di 

pop 

ret 

RxProcess  endp 

bp 

;  get  asat  ID 
;  get  system  time 
;  put  time  in  the  time  Q 
update  Asat  head  pointer 


get_bufTlptr :  Get  the  available  buffer  tail  address  in 

Asatx . pktData 

INPUT  :  bx  *  Asat  ID,  1  for  Asatl,  2  for  Asat2. 

OUTPUT  :  si  =  Asatx. tailAddress 


get_bufTlptr  proc 
push 
push 

mov 

mov 

cmp 

jnz 

mov 

mov 

jmp 

ggettptrl ; 

cmp 

jnz 

mov 

mov 

@gettptr2 : 

pop 

pop 

ret 

get_bufTlptr  endp 


near 

ds 

ax 

ax,  cs 
ds,  ax 

bx,  1 
egettptrl 

si,  offset  code: Asatl 
si,  [si] .tailAddress 
short  @gettptr2 

bx,  2 

short  @gettptr2 

si,  offset  code: Asat 2 

si,  [si] .tailAddress 

ax 

ds 
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renew_address :  Replaces  the  PC's  address  to  Asat  address  at  the 

first  6  bytes. 

INPUT  :  si  -  pointer  to  the  packet. 

OUTPUT  :  si  -  pointer  to  the  packet. 


renew_address  proc  near 


push 

es 

push 

ds 

push 

si 

push 

di 

push 

cx 

mov 

cx. 

cs 

mov 

es. 

cx 

mov 

ds. 

cx 

mov 

cx. 

6 

mov 

di. 

si 

mov 

si. 

of 

rep 

movsb 

pop 

cx 

pop 

di 

pop 

si 

pop 

ds 

pop 

ret 

es 

renew_address  endp 


destination 
;  source 


update_AsatTlptr ;  Update  Asatx. count,  Asatx. tailPointer, 

Asatx. tailAddress  after  transmitting  a  packet. 
INPUT  :  bx  =  Asat  ID,  1  for  Asatl,  2  for  Asat2 . 

OUTPUT  :  NON 


update_AsatTlptr  proc  near 
push  ds 

push  di 

push  ax 

mov  ax,  cs 

mov  ds ,  ax 

cmp  bx ,  1 

jnz  §updateTll 

mov  di,  offset  code: Asatl 

jmp  short  @updateT12 
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§updateTll; 


cmp 

bx,  2 

jnz 

§updateTlE 

mov 

di,  offset  code:Asat2 

§updateT12 : 

cmp 

[di] . tailPointer, 

MaxPktInQ 

jnz 

short  @updateT13 

mov 

[di] .tailPointer, 

0 

mov 

ax,  di 

add 

ax,  15 

siib 

ax,  PacketLength 

mov 

[di] .tail Address, 

ax 

mov 

ax,  di 

add 

ax,  15+Qbytes 

mov 

[di] .timetail,  ax 

@updateT13 : 

dec 

[di] .count 

inc 

[di] .tailPointer 

add 

[di] . tailAddress, 

PacketLength 

add 

[di] . timetail,  4 

cmp 

[di] .tailPointer, 

MaxPktInQ 

jnz 

short  @updateT14 

mov 

ax,  di 

add 

ax,  15+Qbytes 

mov 

[di] . timenext,  ax 

@updateTl4 ; 

add 

[di] . timenext,  4 

eupdateTlE: 

pop 

ax 

pop 

di 

pop 

ds 

ret 

update_AsatTlptr 

endp 
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_cXinitl:  Transmits  one  packet  either  from  Asatl .  pktData  or 
Asat2 . pktData  based  on  the  ASAT  ID  passed  from 
f liter. c.  This  subroutine  also  replaces  the  ASAT  address 
with  the  PC's  address. 

Calling  sequence: 

_cXmitl(ttlpl,  nb,  flags,  reqid,  pktptr,  Snreqid,  AsatID, 
newaddflag) ; 

INPUT  :  ttlpl,nb  =  packet  length. 

AsatID  =  0,  trx.  packet  from  pointer  pktptr,  otherwise 
from  Asatx.tailAddress. 

newaddflag  =0,  no  address  replacement.  1,  replace  PC's 
address  (AsatID  >  0) . 


Return:  Non 


transmit  one  packet 


proc 

near 

push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

ax,  ds 

mov 

es,  ax 

; setup 

for  PutTxData 

mov 

cx,  [bp+6] 

;  set  lengths 

mov 

dl,  byte  ptr[bp+8] 

mov 

dh,  byte  ptr[bp+10] 

mov 

bx,  [bp+18] 

;  get  Asat  ID 

mov 

ax,  [bp+20] 

;  get  new  address  ID 

mov 

cs:asatid,  bx 

;  save  Asat  ID 

mov 

cs:addid,  ax 

;  save  Address  ID 

cmp 

bx,  0 

jz 

extrxi 

mov 

ax,  cs 

mov 

ds,  ax 

mov 

es,  ax 

call 

get_bufTlptr 

;  set  si=Asatx. tailAddress 

mov 

ax,  cs:addid 

;  restore  address  ID 

cmp 

ax,  0 

jz 

short  @Xtrx2 

call  renew_address  ;  replace  a  new  adapter 


address 


jmp  short  @Xtrx2 
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extrxl : 


§Xtrx2 : 


extrx3 : 


cXmitl 


mov 

ax,  cs 

mov 

ds,  ax 

mov 

si,  [bp+12] 

mov 

si,  offset  csitrxbuf 

mov 

bx, [bp+4] 

mov 

di,Offffh 

call 

PutTxData 

pop 

ds 

xchg 

dh,dl 

xor 

dh,dh 

mov 

di, [bp+16] 

mov 

[di] ,dx 

mov 

bx,  cs:asatid 

cmp 

bx,  0 

jz 

@Xtrx3 

call 

update_AsatTlptr 

pop 

di 

pop 

si 

pop 

ret 

endp 

bp 

set  packet  lengths 
no  TxProcess 

;  transfer  data  to  the 
adapter  buffer 


restore  Asat  ID 


InitBufptr 

This  subroutine  initializes  the  receiving  buffer  pointers  and 
counters . 


InitBufptr 


proc 

near 

mov 

di,  offset  code:Asatl  ; 

load 

Asatl  address 

mov 

word  ptr  [di], count,  0 

reset  counter 

mov 

word  ptr  [di] .headPointer 

,  1 

;  initialize 

f 

pointers 

mov 

word  ptr  [di] . tailPointer , 

1  ; 

mov 

bx,  di 

add 

bx,  15 

mov 

word  ptr  [di] .headAddress, 

bx  ; 

store  address 

f 

Asatl . pktData 

mov 

word  ptr  [di] .tailAddress, 

bx  ; 

store  address 

Asatl . pktData 

add 

bx ,  Qbytes+4 

;  load  time 

• 

i 

buffer  address 

mov 

[di] . timehead,  bx 

mov 

[di] . timetail,  bx 

mov 

[di] . timenext,  bx 

add 

[di] . timenext,  4 
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9 

;_cGetNumPkt 

;  This  subroutine  returns  a  number  of  total  packets  in  the 
;  receiving  buffer. 

;  Calling  sequence: 

;  number  =  cGetNumPkt (AsatiD) ; 


INPUT  :  Asat  ID  -  1  for  Asatl,  2  for  Asat2 
Return:  AX  -  number  of  packets  in  the  buffer 


_cGetNumPkt 

proc 

near 

push 

bp 

mov 

bp,sp 

push 

ds 

push 

di 

mov 

ax,  cs 

mov 

ds,  ax 

mov 

ax,  [bp+4] 

cmp 

ax,  1 

jnz 

@getnuml 

mov 

di,  offset  code: Asatl 

xor 

ax,  ax 

mov 

al,  [di]. count 

into  AX 

jmp 

short  @getnum3 

@getnuml : 

cmp 

ax,  2 

jnz 

@getnum2 

mov 

di,  offset  code:Asat2 

xor 

ax,  ax 

mov 

al,  [di]. count 

into  AX 

jmp 

short  @getnum3 

§getnum2 : 

xor 

ax,  ax 

0 

@getnum3 : 

pop 

di 

pop 

ds 

pop 

ret 

bp 

_cGetNumPkt 

endp 

;  get  Asat  ID 


;  store  a  number 


;  store  a  number 


;  error,  return 
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mov 

mov 

cmp 

jz 

mov 

call 

inc 

@getpkt4 : 

pop 

pop 

pop 

pop 

pop 

ret 

_cGetOnePkt  endp 


ax,  word  ptr  6[bx] 
bx,  [bp+8] 
bx,  0 

short  §getpkt4 
bx,  cs:asatid 
update_AsatTlptr 
cs : pkcnt 


ds 

bx 

di 

si 

bp 


get  packet  length 
;  get  clear  flag 

;  get  Asat  ID 


sawecs  proc  near 

push  ds 

push  es 

push  si 

push  di 

push  cx 

mov  ax , ds 

mov  es , ax 

xor  ax, ax 

mov  ds , ax 

mov  cx,22h*2  /vectors  0  -  21h,  2  wds  per 

mov  di, offset  CODE;vectsv 

xor  si, si 

cld 

cli 

rep  movsw  /save  'em  all 

sti 

pop  cx 

pop  di 

pop  si 

pop  es 

pop  ds 

ret 


sawecs  endp 
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13.0  Data  acq.c 

This  Ts  a  stand  alone  program  used  to  capture  ASAT  simulator 

data. 

/it*************************************************************** 

Data_acq.c 


This  program  samples  and  stores  the  five  channel  data  from 
ASAT  simulator. 


ie**************************************************************** 

# include  <stdio.h> 

# include  <stdlib.h> 

# include  <conio.h> 

# include  <time.h> 

# include  <dos.h> 

#include  <bios.h> 

# include  <math.h> 

#include  "kklib.h" 

#include  "clib.h" 

/*  Program  to  sample  and 

fdefine  DSIZE  10 

#define  ASIZE  655 

#define  BUFSIZE  32750 
#define  SCANSIZE  5 
#define  INITVALUE  0 


store  data  using  mode  27  */ 

/*  DAS20  Data  Array  Size 
(Arguments)  */ 

/*  Array  for  Conditioned 
Data  */ 

/*  #  samples  in  a  buffer  */ 

/*  Value  to  initialize 
darray  to  */ 
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long  noc,nos; 

int  error,  nom,  gcount; 

int  i ,  n ; 

long  FileSizePerMinute  =  55000; 

long  GlobalNumOfMinutes; 

int  far  *buffer; 

int  far  *bufferl; 

int  far  *buffer2; 

int  far  *bufptr; 

int  far  *ALLOC() ; 

char  *tiinec; 

char  *FileToUse; 

char  *LogFile; 

char  *Subject; 

char  *Condition; 

char  *Taslc; 

char  *VTRStart ; 

char  *VTREnd ; 

char  *Bernoulli; 

long  dataf ilesize,  logfilesize; 

FILE  *fin; 

extern  int  LastKey; 

/* - */ 

char  *DetermineVTREnd() 

{ 

int  shr,  smin,  ssec,  sfr; 

double  ehr  =  0; 

double  efr  =  0; 

double  emin  *  0; 

double  esec  =0; 

double  temp,  tempd; 

char  dummy [ 3 ] ; 

strncpy ( dummy ,  VTRStart,  2) ; 
dummy [ 2 ]  =  ' \0 ' ; 

shr  =  atof (dummy); 

strncpy ( dummy ,  VTRStart+3,  2); 

dummy [2 ]  =  ' \0 ' ; 

smin  =  atof (dummy); 

strncpy ( dummy ,  VTRStart+6,  2); 

dummy [ 2 ]  =  ' \0 ' ; 

ssec  =  atof (dummy); 

strncpy (dummy,  VTRStart+9,  2); 

dummy [2]  =  '\0' ; 
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sfr  =  atof  (diunmy)  ; 

temp  =  noc  /  5; 
temp  =  temp  /  IbOO; 

temp  =  mod£(temp,  &emin) ;  /*  temp  =  remainder  */ 

temp  =  temp  *  60; 

temp  =  mod£(temp,  &esec) ; 

efr  =  ceil (temp  *  30); 

efr  +=  sfr; 

if  (efr  >  29) 

{ 

efr  -=  30; 
esec++ ; 

} 

esec  +=  ssec; 

if  (esec  >  59) 

{ 

esec  -=  60; 
emin++ ; 

} 

emin  +=  smin; 

if  (emin  >  59) 

{ 

emin  -=  60; 
ehr++ ; 

} 

ehr  =  ehr  +  shr; 

itoa((int)  ehr,  VTREnd,  10); 
street  (VTREnd,  •':'•)  ; 
itoa((int)  emin,  dummy,  10); 
street (VTREnd,  dummy) ; 
s treat  (VTREnd ,  '•;”); 
itoa((int)  esec,  dummy,  10); 
street (VTREnd,  dummy) ; 
street  (VTREnd , 
itoa((int)  efr,  dummy,  10); 
street (VTREnd,  dummy) ; 
return (VTREnd) ; 
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if  ( (GlobalNumOfMinutes  *  FileSizePerMinute)  >=  avail) 

{ 

ErrorMessage ( "Not  enough  disk  space  for  file."); 
return (False) ; 

} 

if  (access (filename,  0)  !=  0) 
return (True) ; 

else 

{ 

Question (  "File  already  exists.  Overwrite  (Y/N)?  ", 
"N",  &ans[0],  CYAN,  WHITE); 

return (strcmp(ans,  "Y")  ==  0); 

) 

} 

/* - - - */ 

BOOLEAN  ValidMinutes  (char  inins[]) 

{ 

int  i  =  atoi(mins); 

GlobalNumOfMinutes  =  i;  /*  Used  in  ValidFileName  to 

calculate  required  disk  size  of 
output  file.  */ 

return ((i  >0)  &&  (i  <  19)); 

} 

/* - */ 

BOOLEAN  IsBernoulliActive ( ) 

{ 

char  buffer[5l2]; 
int  result; 

printf ("\nTesting  to  see  if  drive  M;  is  ready\n") ; 
result  =  biosdisk(16, 138 , 0, 0, 0, 1, buffer) ; 
result  &=  OxAA; 

return (result) ; 

} 


Aviation  Test  Plan  Report 


Page  327 


void  Init(void) 

{ 

int  X  =  0; 

Attr(BLUE,  WHITE) ; 
clrscrO  ; 

GetVideoMode 0 ; 

DrawTopBar ( "ASAT  Flight  Stick  Data  Acquisition  System") ; 
DrawBottomBar (25,  " " Esc  * -Exit" ) ; 

for  (X  =  1;  X  <  81;  x++) 

PokeChar(x,  8,  'M',  (BLUE  «  4)  |  WHITE); 

for  (X  =  1;  X  <  81;  x++) 

PokeChar(x,  21,  'M',  (BLUE  «  4)  |  WHITE); 

Attr( GREEN,  WHITE) ; 

PokeStr(32,  8,  "  LOG  INFORMATION  ") ; 

PokeStr(29,  21,  "  EXECUTION  INFORMATION  ") ; 

timec  =  (char  *)  malloc(15) ; 
timec[ 14]  =  ' \0 ' ; 

if  ((bufferl  =  ALLOC(32768) )  ==  NULL)  /*  Allocate  buffer  */ 

{ 

ErrorMessage ("Cannot  allocate  buffer  #1.  Aborting 

program. ") ; 

exit(O) ; 

) 

if  ( (buf fer2  =  ALLOC(32768) )  ==  NULL)  /*  Allocate  buffer  */ 

{ 

ErrorMessage ("Cannot  allocate  buffer  #2.  Aborting 

program . " ) ; 

exit(O) ; 

} 
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FileToUse  =  (char  *)  inalloc(41)  ; 
FileToUse[0]  =  'XO'; 

LogFile  *  (char  *)  inalloc(41)  ; 
LogFile[0]  =  'XO'; 

Subject  =  (char  *)  malloc(31); 
Subject[0]  =  'XO'; 

Condition  *  (char  *)  iaalloc(9) ; 
Condition[0]  *  'XO'; 

Task  =  (char  *)  iDalloc(31)  ; 
Task[0]  *  'XO'; 

VTRStart  =  (char  *)  inalloc(12); 
VTRStart[0]  =  'XO'; 

VTREnd  =  (char  *)  inalloc(12); 
VTREnd[0]  *  'XO'; 

Bernoulli  =  (char  *)  malloc(2) ; 
Bernoulli [0]  =  'Y'; 

Bernoulli[l]  =  'XO'; 
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void  DoReadsO 

{ 

struct  GetHoad  G ; 

char  nonstr[5]  =  ”  \0"; 

InitGet(&G); 

AddGet(&G,  5,  4,  4,  "Enter  Number  of  Minutes  to  Run  (1-7):", 
&nomstr[0],  Numeric,  2,  False); 

ValidateGet (G. Last,  ValidMinutes) ; 

AddGet(&G,  5,  6,  40,  "Enter  File  Name:",  FileToUse, 

AlphaNumeric,  1,  False) ; 

ValidateGet (G. Last,  ValidFileName) ; 

AddGet(&G,  5,  10,  30,  "Sxibject(l-th;2-fl;3-ch;4-ca)  :",  Subject, 
AlphaNumeric,  3,  False); 

AddGet(&G,  5,  12,  8,  "Condition:",  Condition,  AlphaNumeric,  4, 
False)  ; 

AddGet(&G,  30,  12,  30,  "Task:",  Task,  AlphaNxamer ic ,  5,  False); 
AddGet(&G,  5,  14,  11,  "VTR  Counter  Start :" ,  VTRStart,  TimeCode, 
6,  False)  ; 

AddGet(&G,  5,  16,  1,  "Backup  to  Bernoulli:", 

Bernoulli,  AlphaNumeric,  7,  False); 

Get(G) ; 

FreeGets(G) ; 

nom  =  atoi (nomstr) ; 

Attr(BLUE,  WHITE) ; 

FlushKeybdBuffer () ; 
if  (LastKey  “  EscKey) 

{ 

CursorSmall ( ) ; 

Attr( BLACK,  WHITE); 
clrscrO  ; 
exit(O) ; 

} 

return ; 

} 
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char  *TimeStr (unsigned  int  timenum) 

{ 

int  min,  sec; 
char  dummy [ 7 ] ; 

min  =  timenum  /  9000; 

sec  =  (timenum  /  150)  %  60; 

itoa(min,  timec,  10) ; 

itoa{sec,  dummy,  10) ; 

timec  =  (char  *)  strcat (timec,  ":”); 

timec  =  (char  *)  strcat (timec,  dummy); 

timec  =  (char  *)  PadLeft (timec,  14) ; 

return (timec) ; 


/* - 

void  _initdas()  /*  This  function  will  initialize  the  DAS-20  */ 
{ 

int  mode0[10]; 

/*  Initialize  DAS-20  Board  */ 

/*  Initialization  Mode  */ 


mode0[0] 

=  0x350; 

/* 

Base  Address  */ 

mode0[l] 

=  2; 

/* 

Interrupt  Level  */ 

modeO [2  3 

*  i; 

/* 

DMA  Level  */ 

if  ((error  =  DAS20(0,  modeO) )  !=  0)  /*  CALL  DAS20  */ 

{ 

printf  (''\nMode  0  Error  =  %d.  Aborting  program. ",  error)  ; 
exit(O) ; 

} 


/* - - - */ 

void  _loadq()  /*  This  function  will  load  the  queue  with  our  info  */ 

{ 

int  model[DSIZE] ; 

int  Chanel [DSIZE] ; 
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inode27[0]  =  nosl;  /*  #  of  scans  */ 

inode27[l]  =  SEGADR(bufferl)  ;  /*  Paragraph  Address  of  Buffer  */ 
inode27[2]  =0;  /*  Specifies  External  Trigger  */ 

inode27[3]  =1;  /*  Specifies  Stop  at  End  of 

samples  */ 

if  ((error  ==  DAS20  (27  ,mode27) )  0)  /*  CALL  DAS20  */ 


{ 


} 


printf  (''\nMode  27  Error  =  %d.  Aborting  Program.  ”,  error )  ; 
exit(O) ; 


PokeStr(5,  22,  "Time:"); 

PokeStr(45,  22,  "Conversion 

mode27[l]  =  1; 
while  (mode27[l]  !=  0) 

{  /*  Monitor  Status  */ 

if  ((error  =  DAS20(12,mode27) )  !=  0) 


printf ("\nMode  12  Error 
Program . " , error) ; 

exit(O) ; 


{ 


} 

PokeStr(10,  22,  TimeStr(mode27[2] ) )  ; 
ltoa(mode27[2] ,  dummy,  10); 
PokeStr(59,  22,  dummy); 

if  (kbhitO) 

{ 

InKeyO  ; 

if  (LastKey  ==  EscKey) 

{ 

noc  =  mode27[2]; 

DAS20(11,  mode27); 
break; 


%d. 


Aborting 


■V 


int  _sample2 ( ) 


/*  This  function  will  take  samples  with  an 
external  */ 

/*  Clock  and  stop  at  the  end  of  conversions  */ 

{ 

int  nos2 ; 

unsigned  int  mode27 [DSIZE] ; 
char  dummy [ 7 ] ; 


nos  =  nom  *  1800; 
noc  =  5  *  nos; 


/*  Number  of  Conversions 


V 


if  (nos  >  (int)  (BUFSIZE/SCANSIZE) ) 

nos2  =  (int)  nos-(int)  (BUFSIZE/SCANSIZE); 
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/*_ - - - */ 

void  _filedat (unsigned  int  dindex) 

{ 

int  darray[ASIZE] ; 

int  ttodel3 [DSI2E] ; 

int  i,j,flag; 

unsigned  int  buf index; 
unsigned  int  index; 
char  input [20]; 

/*  Condition  Data  */ 
for(i  =0;  i  <  ASI2E;  i++) 
darray[i]  =  INITVALUE; 

if  ( (dindex  +  ASIZE)  <=  noc) 
j  =  ASIZE; 

else 

j  =  noc-dindex; 

if  (dindex  >=  BUFSIZE)  { 
bufptr  =  buffer2; 
buf index  =  dindex-BUFSIZE; 

) 

else  { 

bufptr  =  bufferl; 
buf index  *  dindex; 

} 


models [0]  =  j;  /*  #  of  Conversions  */ 

model3[l]  =  SEGADR ( bufptr ) ;  /*  Raw  Data  Buffer  f 

models [2]  =  buf index;  /*  Starting  at  offset  into 

buffer  */ 

models  [3]  =  OFFADR(darray)  ;  /*  Data  Array  */ 

models [4]  =  -1;  /*  No  Channel  Array  */ 

models [5]  =1;  /*  Bipolar  f 

models [6]  =0;  /*  SSH-4  not  used.  f 

if  ((error  =  DAS20(13,  models))  !=  0)  /*  CALL  DAS20  f 

{ 


printf  ( "XnMode  13  Error  =  %d.  Aborting  Program.  error)  ; 
exit(O) ; 

} 

for  (i  =0;  i  <  j;  i+=5)  { 
gcount++ ; 

fprintf(fin,  "  %d  %d  %d  %d  %d  %d\n" ,gcount,  darray[i], 
darray[i+l],  darray[i+2] ,darray[i+3] ,darray[i+4] ) ; 

} 

} 
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if  (Bernoulli[0]  ==  'Y'  j|  Bernoulli[0]  ==  *y') 

( 

getdfree(13,  &free) ; 

avail  =  (long)  free.df_avail  * 

(long)  free.df_bsec  *  (long)  free.df_sclus; 

if  ( (logf ilesize  +  datafilesize)  >=  avail) 

{ 

ErrorMessage ( "Not  enough  disk  space  available  on  the 
Bernoulli. ") ; 

return ; 

} 

PokeStr(22,  24,  "Copying  information  to  Bernoulli..."); 

gotoxy(l,  23); 

dummy ( 0 ]  =  ' \0 '  ; 

strcpy ( dummy ,  " COPY  " ) ; 

strcat (dummy,  FileToUse) ; 

str cat ( dummy ,  "  M : \\BACKUP\\" )  ; 

strcat (dummy ,  FileToUse); 

system (dummy) ; 

PokeStr(l,  23,  "  ")  ; 

gotoxy(l,  23); 

strcpy (dummy,  "COPY  ")  ; 

strcat (dummy ,  LogFile) ; 

strcat ( dummy ,  "  M : \\BACKUP\\" ) ; 

strcat (dummy,  LogFile); 

system (dummy) ; 

PokeStr(l,  23,  "  ")  ; 

} 

gotoxy(l,  24) ; 
clreol ( ) ; 
gotoxy(l,  22) ; 
clreol () ; 
return ; 
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PokeStr(26,  24,  "Saving  information  to  disk..."); 
fin  =  fopen(FileToUse,  "w") ; 


if  ((noc  %  ASIZE)  ==  0) 
count  =  noc  /  ASIZE; 

else 

covint  =  noc  /  ASIZE  +  1; 
gcount  =  0; 

for  (i  =  0;  i  <  count;  i++) 
_filedat (i*ASIZE) ; 

datafilesize  =  ftell(fin); 
fclose(fin) ; 

DumpLogO  ; 

) 

while  (True) ; 
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14 . 0  Stripcha . c 

/it*************************************************************** 

STRIPCHA. C 


This  program  shows  a  stripchart  of  horizontal  and  vertical 
stick  positions  ,  throttle  position,  flare,  chaff,  cage/uncage 
missile  and  gun  fire  events. 


# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
#include 


<stdio.h> 

<stdlib.h> 

<alloc.h> 

<string.h> 

<conio.h> 

<graphics.h> 

<dos.h> 

<time.h> 

<process.h> 


char 

char  far 
char 
int  huge 
int 

long  int 


*path  =  "  j  :  \\tc\\bgi\\'' ; 

*timec; 

dummy [15] ; 

♦buffer, *buf ferstart ; 
min, sec, frame,  option; 
count , countstart ; 


/* - / 

This  program  draws  the  horizontal  and  vertical  bars  and  sets  the 
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void  setimageO 
( 

int  i,yl,y2,y3,y4,y5; 
clearviewport ( ) ; 
setbkcolor (0) ; 
setcolor(63) ; 

line(150, 10, 150, 190) ;  /*  Draw  the  horizontal  and  */ 

line(50, 100, 600, 100) ;  /*  vertical  coordinates  */ 

line(50,200,600,200)  ; 
setcolor(14) ; 

outtextxy (65, 1, "Horizontal”) ; 
outtextxy(75,56,"Left") ; 
outtextxy (75, 140, "Right") ; 
setcolor(lO) ; 

outtextxy (160, 1, "Vertical") ; 
outtextxy (480, 56, "Front") ; 
outtextxy (480,140, "Rear" ) ; 
setcolor(63) ; 

outtextxy (550, 110, "Time") ;  /*  Show  the  time  coordinate  */ 

outtextxy (300, 110,  "5s") ; 

outtextxy (450, 110, "10s") ; 

outtextxy (14 0,80,  "2") ; 

outtextxy (14  0, 62 ,  "4") ; 

outtextxy (140,44 , "6") ; 

outtextxy (14 0,26, "8")  ; 

outtextxy(132,115,"-2") 7 

outtextxy(l32,133,"-4") ; 

outtextxy (132, 151, "-6") ; 

outtextxy (132, 169, "-8") ; 

line(150,210,150,290) ; 
line(50,290,600,290) ; 
outtextxy (140, 272, "2") 7 
OUttextxy(140,256, "4") 7 
outtextxy (14 0,240, "6") 7 
outtextxy  (140, 224 ,  "8")  ,* 

setcolor(9)  ,* 


switch (option)  /*  Determine  which  option  is  selected  */ 

{ 

case  1:  outtextxy (80, 210, "Throttle") 7  break 7 
case  2;  outtextxy  (80,210,  "Flair")  7  break,* 

case  3:  outtextxy (80,210, "Chaff ")  7  break,* 

case  4:  outtextxy (80,210, "Cage") 7 

outtextxy (8 0,2 80, "Uncage”)  7  break,* 

) 
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setcolor(63) ; 

outtextxy(550, 300,  "Time*')  ; 
outtextxy (300, 300, "5s")  ; 
outtextxy(450,300,"l0s") ; 
setcolor (14) ; 

outtextxy (550, 192, "Missile") ;  /*  Show  the  missile 

coordinate  */ 

setcolor (4) ; 

outtextxy (550 , 202 , "Gun" ) ;  /*  Show  machine-gun 

coordinate  */ 

setcolor (12) ; 

for ( i=l ; i<=l0 ; i++) 

{ 

line(150, (100+9*(i-ll) ) ,450, (100+9* ( i-11) ) ) ; 

} 

for(i=12 ;i<=21;i++) 

{ 

line (150, ( 100+9* (i-ll) ) ,450, (100+9* (i-11) ) ) ; 

) 

for ( i=0 ; i<=9 ; i++) 

{ 

line (150, (250+8* (i-5) ) ,450, (250+8* (i-5)  ) ) ; 

} 

for ( i=l ; i<=l 1 ; i++ ) 

{ 

line( (150+30*(i-l) ) ,10, (150+30* (i-l) ) ,190) ; 
line( (150+30*(i-l) ) ,210, (150+30* (i-l) )  ,290)  ; 

> 


setcolor (63) ;  /*  Set  color  "white"  */ 

outtextxy (100, 300, "Time; ") ; 

outtextxy (150, 300, timec) ;  /*  Display  time  */ 

line(50,315,600,315) ; 

outtextxy (150, 330, "Pause  -  Press  [Esc]"); 


for ( i=150 ; i<450 ; i++) 

{ 


/*  Display  the  four  channel 
signals  */ 


yl  =  0.05*(*(buffer+6*(i-150)+l) )+  65; 


y2  =  -0.05*(*(buffer+6*(i-l50)+2) )  +  138; 
y3  =  * (buf fer+6* (i-150)+3) ; 
y4  =  * (buf fer+6* (i-150)+4) ; 
y5  =  *(buffer+6*(i-150)+5) ; 
putpixel(i,  yl  ,  14  ) ; 
putpixel ( i ,  y2  ,10  ) ; 
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if (y4<500) 

{ 

setcolor(14} ; 
line(i, 195, i, 200) ; 

) 

if (y5<500) 

{ 

setcolor(4) ; 
line(i,200,i,205)  ; 

} 

switch (option)  /*  Display  the  selected  channel  signal  */ 

{ 

case  1;  putpixel(i,  -0.054*y3  +  300,  9);  break; 


} 


case  2: 
case  3: 

{ 

if  (y3  <  500) 

{ 

setcolor(9) ; 
line(i,210,i,290)  ; 

} 

else 

putpixel(i,290,9)  ; 
break ; 

} 

case  4:  putpixel(i,  y3,  9);  break; 


/* - 

/*  This  function  generates  the  time  string  format  mm: ss: frame 

/* - 

void  timestring (void) 

{ 

char  dummyl[17] ,dummy2 [2] ; 

dummy 2 [ 0 ]  =  ' : ' ; 
dummy 2 [ 1 ]  =  ' \0  * ; 
frame  =  frame  +  l; 
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do  /*  Receive  the  first  digit  of  minute  */ 

{ 

word  =  getchO  ; 
word  =  word  -  -*.3; 

if((word>=0)  &&  (word<=9)) 

{ 

min  =  min  +  10*word  ; 
itoa(word,wordstr,10) ; 
outtextxy (150,340,wordstr) ; 

} 

} 

while ( (word<0)  {{  (word>9)); 

do  /*  Receive  the  second  digit  of  minute  */ 

{ 

word  =  getchO  ; 
word  =  word  -  48? 

if((word>=0)  &&  (word<=9)) 

{ 

min  =  min  +  word; 
itoa(word,wordstr,10)  ; 
outtextxy (160, 340, wordstr) ; 

) 

} 

while ( (word<0)  {}  (word>9))? 

do  /*  Receive  the  first  digit  of  second  */ 

{ 

word  =  getch ( ) ; 
word  =  word  -  48; 

if ( (word>=0)  &&  (word<=9) ) 

{ 

sec  =  sec  +  10*word; 
itoa (word,wordstr,  10)  ; 
outtextxy(172,340,wordstr) ; 

} 

} 

while ( (word<0)  j|  (word>9)); 


Aviation  Teat  Plan  Report 


Page  345 


} 


if (count<0) 

{ 

setviewpoirt(150, 340, 220, 349,0)  ; 
clearviewport  ( )  ; 
setviewport:(0, 0,639, 349,0)  ; 
outtextxy (10, 340, "Reenter  Time") ; 

) 

} 

while (  count<0) ; 
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/* - - 

/*  This  function  shows  titles  on  the  screen 

/* - 


void  init_screen(void) 

{ 

spawnl(  P_WAIT, 

"BE. EXE", 

"BE", 

"SA  reverse" , 

NULL)  ; 

spawnl (  P_WAIT , 

"BE. EXE", 

"BE", 

"WINDOW  2,  10,  6,  69,  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 


spawnl ( 


BLUE", 


P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  3,21  " 

AVIATION  RESEARCH  LABORATORY' 


NULL)  ; 


BOLD  WHITE  ON 


spawnl (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  5,21  " 

******INTERSIMULATOR  NETWORK******'  BOLD  WHITE  ON 

BLUE", 

NULL) ; 

} 
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/* - 

/*  This  function  accepts  the  data  file  name 

/* - 

void  wait_load(char  pt_file[]) 

{ 

spawnl(  P_WAIT, 

"BE. EXE”, 

"BE", 

"  WINDOW  10,10,14,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

spawn 1 (  P_WAIT, 

"BE. EXE", 

"BE", 

"  ROWCOL  12,17  'Please  enter  data  file  name  BOLD 
WHITE  ON  BLUE", 

NULL) ; 

scanf ("%s",pt_file) ; 

} 


/* - 

/*  This  function  loads  the  data  and  related  side  information 

/* - 

void  end  load (char  pt_file[]) 

{ 

int  i,  j,  flag,  status; 
char  cha,subj ,pt_log[70] ; 

FILE  *fp; 

struct  entry 

{ 

char  content [70]; 

} 

line  [20]; 

spawnl (  P_WAIT, 

"BE.EXE", 

"BE", 

"  WINDOW  8,10,23,69  BOLD  CYAN  ON  BLUE  SHADOW  ZOOM", 
NULL)  ; 

i  =  0; 

while  (  pt_file[i]  !=  &&  pt_file[i]  !=  '\0'  ) 

{ 

pt_log[i]  =  pt_file[i]; 

++i; 

) 
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pt_log[i]  = 
pt_log[i+l]  =  '1'; 
pt_log[i+2]  =  'o*; 
pt_log[i+3]  =  'g'; 
pt_log[i+4]  =  '\0'; 

fp  =  fopen(pt_log, "r”) ; 
i  =  0; 
flag  =  1; 

while  (flag  !=  EOF  &&  i  <  9) 

{ 

j  =  0; 
cha  =  1; 

while (cha  1=  '\n') 

{ 

flag  =  fscanf  (fp, &cha)  ; 
line[i] .content[ j ]  =  cha; 

++j; 

} 

line[i] .content[ j ]  =  '\0'; 

if  (line[i] .content [0]  1=  '\n') 

{ 

gotoxy(18, 11+i) ; 

printf (”%s” , line[i] .content) ; 

i++; 

> 


subj  =  line[2] .content[31] ; 

switch (subj)  /*  Determine  which  channel  is  selected  */ 

{ 


case 

•1' 

:  option  = 

l; 

break; 

case 

•2 ' 

:  option  = 

2; 

break; 

case 

•3  ' 

:  option  = 

3; 

break; 

case 

141 

:  option  = 

4 ; 

break; 

} 
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/*  Uncage  */ 


if (option  ==  4) 

{ 

status  =  1; 

for ( i=0 ; i<countstart ; i=i+6 ) 

{ 

if  (  *  (buf f erstart  +  3  +  i+  6)  -  *  (bufferstart  +  3  +  i) 

<  -500  ) 

status  =  1/  (status  +1)  ; 
if (status  ==  1) 

♦(bufferstart  +  3  +  i)  =  290;  /*low*/ 

else 

♦(bufferstart  +  3  +  i  )  =  210;  /♦high^/ 

) 

) 

spawnl(  P_WAIT, 

"BE. EXE”, 

••BE”, 

••  ROWCOL  21,17  •Press  any  key  to  continue'  BOLD  WHITE 

ON  BLUE", 

NULL) ; 

i  =  getch ( ) ; 
fclose(fp) ; 

} 


/♦  This  is  the  main  function.  It  sets  the  graphic  mode, 
/♦  initializes  all  the  parts  and  controls  the  display  process. 

/* - 

void  main (void) 

{ 

int  driver, mode, k,pagenum, flag,wordl,word2 ; 
int  intin; 

FILE  ♦fd; 
char  name [70] ; 

if ((buffer  =  (int  huge  ♦)  farmalloc  (98302^sizeof (int) ) ) 
==NULL) 

{ 

printf ("Memory  allocation  error\n") ; 
exit(O) ; 

}  /♦  Allocate  data  memory  ♦/ 

bufferstart  =  buffer; 
init_screen ( ) ; 


Aviation  Test  Plan  Report 


do 

{ 

wait_load (name) ; 
fd  =f open (name,  "r”) ; 

} 

while (fd  ==  NULL) ; 

timec  =  dummy; 
count  =0; 

do  /*  Read  data  file  */ 

{ 

flag  =  fscanf  (fd, ''%d'',  &intin)  ; 

if (flag  ==E0F)  break; 

♦buffer  =  intin; 

buffer  =  buffer  +1; 
count  =  count  +1; 

} 

while (flag  !=  EOF  ) ; 

buffer  =  bufferstart; 
countstart  =  count; 

end_load(name) ; 

driver  =  VGA;  /*  Set  graphic  mode  */ 

mode  =  VGAMED; 

initgraph ( Sdriver , &mode , path) ; 

setactivepage (0) ;  /*  Set  active  video  memory  */ 

min  =  0; 
sec  =  0; 
frame  =0; 
timestring  0  ; 
setimage  ( )  ; 
setvisualpage(O) ; 

pagenum=l ; 
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do 

{ 

buffer  =  buffer  +  6; 
count  =  count  -  6; 
timestringO  ; 
setactivepageCpagenum) ; 
setimageO  ; 

setvisualpage(pagenum) ; 

pagenum  »=  (pagenum  +1)  %  2;  /*  Switch  active  page  and 

visual  page  */ 

if  (kbhit  0 ) 

{ 

wordl  =  getch() ; 


if(wordl  ==  27) 

{ 

setcolor(O) ; 

outtextxy (150, 330, "Pause  -  Press  [Esc]"); 

setcolor (63) ; 

outtextxy (150,330,  "Replay  -  Press  [Enter]; 

"Exit  -  Press  [Esc];"); 


Press  [P]"); 


outtextxy(150, 340, "Play  from  specific  time  - 


do 

{ 

word2  =  getchO  ; 

/*  Process  'Esc*,  'Enter*  or  'P'  selection*/ 

switch ( wo rd2) 

{ 

case  27: 

{ 

restorecrtmode ( ) ; 
clrscrO  ; 
exit(O) ; 

} 

case  112: 

{ 

setstarttime ( ) ; 
break ; 

) 

) 

} 

while(  (word2  !=  13)  &&  (word2  !=  27)  &&  (word2 

!=112)  ) ; 

} 

) 


) 

while (  count  >  0) ; 
restorecrtmode ( ) ; 
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clrscrO  ; 
return (0) ; 
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15.0  Volts. C 


/* - 

Use  this  program  to  translate  data  files  generated  from  the  Keithly 
A/D  board  (in  packed  binary  format)  into  voltages.  The  output  of 
the  file  will  be  as  follows: 


\  Comment 

4  3 

0.033330 

0.066660 

0.099990 

0.133320 


0.863760 

0.922320 

-1.000400 

1.464000 


-0.893040 

-0.844240 

0.922320 

1.171200 


The  first  line  represents  the  comment  field.  This  field  may  be  up 
to  (but  not  exceeding)  4  lines.  The  second  line  represents  the 
number  of  rows  and  columns  in  the  file  (in  this  case  4  rows  of 
3  columns)  .  The  next  four  lines  represent  the  data  collected.  The 
first  column  is  the  time  at  which  the  data  were  collected.  The 
second  and  third  columns  are  the  X  and  Y  channels  respectively  (X 
and  Y  stick  position  values). 


# include  <stdio.h> 

#include  <stdlib.h> 

# include  <string.h> 

char  input [ 20 ]; 

char  *filein;  /*  Asat  data  FILE  */ 

char  *fileout; 

FILE  *fout,  *fin; 

char  *outfiles[9] ; 

char  * files [7]; 

int  nuiu,  rc  =  0; 

int  frame,  second,  min,  hour; 

long  offset  =  0; 

/* - 

void  Comment (int  1) 

{ 

char  *comment; 
int  i  =  0; 
int  len; 

comment  =  (char  *)  malloc(80); 
offset  =  0; 
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clrscrO  ; 
gotoxy(l,l) ; 

printf  ("Enter  comment  for  output  file  (4  lines  max)\n*'); 
if(l  «  0) 

comment  =  gets (comment) ; 

while  (i  <  4) 

{ 

comment [ 0 ]  =  ' \0 ' ; 

printf ("%ld.  ",i+l); 
gets (comment) ; 
len  =  strlen( comment) ; 
offset  +=  len; 

if  (len  ==  0) 
i  =  4; 

else 

{ 

if  (i  ==  0) 

offset  +=  3; 

else 

offset  +=  4; 

i++; 

fprintf  (fout,  "\\  % s\n'*, comment )  ; 

) 

} 

fprintf (fout,  "$  \n") ; 

offset  +=  1; 
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/* - 

void  GetFiles(void) 

{ 

int  i ,  j ; 

for  (i=0;  i<7;  i++) 

files[i]  =  (char  *)  malloc(lO) ; 

printf  ("Enter  number  of  files  to  transform\n") ; 
scanf  ("td",  &num) ; 

printf  (  "Enter  names  of  files  to  transform\n") ; 

for(j  =  0;  j  <  num;  j++) 

scanf  ("%s",  files[j]); 

} 


I 
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/* - 

void  LineCount ( int  Ic) 

{ 

int  ccount  =  3 ; 
char  ch,  linel[80]; 

fout  =  fopen(fileout,  ”r+*') ; 
fseek(fout,  offset,  SEEK_SET) ; 

fprintf (fout,  ”%d  %d",  Ic,  ccount); 

rewind (fout) ; 

while  (fgets(linel,  80,  fout)); 
fclose(fout) ; 

) 

/* - 

void  TimeCode (void) 

{ 

frame  +=1; 


if  (frame  ==  30) 

{ 

frame  =  0; 
second  +=  1; 

if  (second  **=  60) 

{ 

second  =0; 
min  +=  1; 

if (min  ==  60) 

{ 

min  =  0; 
hour  +=  1; 


) 


if (hour  ==  24) 
hour  =0; 
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switch  ( j ) 

{ 

case  0  : 

{ 

strcpy (hrstr,  temp); 
hrstr[2]  =  'XO'; 
break; 

) 

case  1  : 

{ 

strcpy (minstr,  temp); 
minstr[2]  =  'XO'; 
break; 

) 

case  2  : 

{ 

strcpy (secstr,  temp) ; 
secstr[2]  =  'XO*; 
break; 

} 

case  3  : 

{ 

strcpy ( f rstr ,  temp) ; 
frstr[2]  =  '\0'; 
break; 

} 

} 

j  +=  1; 


frame  =  -1; 

second  =  atoi (secstr) ; 
min  =  atoi (minstr) ; 
hour  =  atoi (hrstr); 

} 

/* - 

void  main (void) 

{ 

int  k,  1,  temp  =0; 

float  voltO,  voltl,  tempo,  tempi, 

int  print; 


sec  =  0; 
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clrscrO  ; 
gotoxy (1, 1)  ; 

GetFiles ( ) ; 

OutFiles() ; 

printf ("Choose  the  format  which  you  wish  \n") ; 
printf("to  print  to  %s\n",  fileout) ; 
printf("l.  =  X  and  Y  channels  only\n") ; 

printf("2.  =  Time  in  milliseconds  X  and  Y  channels\n") ; 
printf("3.  =  Time  in  milisec.  X  and  Y  channels  and  Time 
code\n")  ; 

scanf("%d",  Sprint); 

if (print  ==  3) 

InitTime () ; 

filein  =  (char  *)  malloc(20); 
fileout  =  (char  *)  malloc(20); 

for  (k  =  0;  k<  num;  k++) 

{ 

filein  =  files[k]; 

fin  =  fopen (filein,  "r") ; 

1  =  k; 

if  (k  ==  0) 

{ 

fileout  =  outfiles[k]; 
fout  =  fopen( fileout,  "w") ; 

Comment (1)  ; 

) 

rc  = 

while ( ! feof (f in) ) 

{ 

if  (temp  ==  12600  &&  I feof (fin)) 

{ 

f close (fout) ; 

LineCount (temp) ; 
temp  =0; 

fileout  =  outfiles[l]; 
fout  =  fopen( fileout,  "w") ; 

Comment (1) ; 

1  +=  1; 

) 
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&teinpO,  &teinpl)  ; 


voltl) 


voltl) 


voltl) 


voltO, 


voltO, 


voltO, 


voltO, 


voltl) 


I 


fscanf  (fin,  ”%f  %f\n''  , 
rc++  ; 
teinp++ ; 

sec  +=  .03333; 
voltO  =  tempo  *  .00488; 
voltl  *  tempi  *  .00488; 

switch (print) 

{ 

case  1  : 

{ 

if  (voltO  <  0  &&  voltl  <  0) 

fprintf  (fout,  '•%6f  %6f\n'',  voltO,  voltl); 

else 

if  (voltO  >=  0  &&  voltl  >=  0) 

fprintf  (fout,  "%6f  %6f\n",  voltO, 

else 

if (voltO  >=  0  &&  voltl  <  0) 

fprintf  (fout,  ''%6f  %6f\n'',  voltO,  voltl); 

else 

if (voltO  <  0  &&  voltl  >=  0) 

fprintf  (fout,  "%6f  %6f\n",  voltO, 


gotoxy  (5,24); 

printf  ("VoltO  =  %6f  Voltl  =  %6f",  voltO, 
break ; 

> 

case  2  : 

{ 

if (voltO  <  0  &&  voltl  <  0) 


fprintf  (fout,  "%f 

%6f 

%6f\n",  sec. 

voltl) ; 

else 

if (voltO  >=  0  &&  voltl 

>=  0) 

fprintf  (fout,  "%f 

%6f 

%6f\n",  sec. 

voltl) ; 

else 

if (voltO  >=  0  &&  voltl 

<  0) 

fprintf  (fout,  *'%f 

%6f 

%6f\n",  sec. 

voltl) ; 

else 

if (voltO  <  0  &&  voltl 

>=  0) 

fprintf  (fout,  "%f 

%6f 

%6f\n",  sec. 

voltl)  ; 

gotoxy  (5,24); 

printf  ("VoltO  =  %6f  Voltl  = 

%6f",  voltO, 

break; 

) 
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case  3  : 

{ 

TimeCodeO  ; 


if(voltO  <  0  &&  voltl  <  0) 

fprintf  (fout,  "tf  %6f 

%d;%d:%d:%d\n'', 

sec,  voltO,  voltl,  hour,  min,  second, 
else 

if(volt0  >=  0  &&  voltl  >=  0) 
fprintf  (fout,  ''%f  %6f 

%d;%d:%d:%d\n'', 

sec,  voltO,  voltl,  hour,  min,  second, 
else 

if(volt0  >*  0  &&  voltl  <  0) 
fprintf  (fout,  "%f  %6f 

%d:%d:%d:%d\n*', 

sec,  voltO,  voltl,  hour,  min,  second, 
else 

if (voltO  <  0  &&  voltl  >=  0) 
fprintf  (fout,  '*%f  %6f 

%d;%d:%d:%d\n'', 

sec,  voltO,  voltl,  hour,  min,  second, 


voltl) ; 


gotoxy  (5,24)  ; 
printf  ("VoltO  =  %6f 


} 


break; 


if  (eof(fin)  &&  temp  ==  12600) 

{ 

fclose(fout) ; 

LineCount (temp) ; 

} 


Voltl  =  %6f" 


if  (eof(fin)  &&  k  »  num  -1) 

{ 

fclose(fout) ; 

LineCount (temp) ; 

) 


fclose(fin) ; 

) 


exit(O) ; 

} 


%6f 

frame)  ; 
%6f 

frame)  ; 

%6f 

frame)  ; 
%6f 

frame)  ; 
voltO, 
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